ALGY -- Algebraic Manipulation Program 


Operating Instructions and Program Statistics 

ALGY was designed to operate under the WDL executive system, 
MESS*. The program requires three magnetic tapes. USB 0 has been 
designated as the ALGY INPUT PROGRAM tape. The ALGY Input Program 
is transferred from cards to magnetic tape in CODE MODE. USE 1 is 
an intermediate scratch tape, the content of which is not saved, 
and USE 3 is the executive system's printer output tape. Write 
enable rings should be mounted on all three tapes used by the pro¬ 
gram. Please note that the program was written for MESS 1 which 
employs a USE table and USE number rather than logical numbers when 
programming for magnetic tapes. 

There is no restart procedure and a successful finish is ter- 
minatedv with 'FINISH OF ALGY RUN' typed on the console flex and an 
exit to M/620(SC). A run may terminate by several error exits where 
the error will be typed on the console flex. These are: 

'PROGRAM NOT ON TAPE' is indicated when a tape is • 
mounted with no ALGY INPUT PROGRAM recorded on it. 


* In order to operate the program outside the MESS system, without 
reassembly, it should be noted that the program locations M/600, 
M/601 and M/603 contain the tape numbers for input tape, scratch 
tape_..and output tape, respectively. In each instance the number 
is located at B23. The program itself will insert the numbers 
contained in these locations in the proper places in the body of 
the program. If the program is reassembled, card JR0016 assigns 
the locations of the USE table. By changing this card, locations 
other than M/600, M/601 and M/603 can be used. In addition, there 
are several jumps to M/620 which under MESS return control to the 
executive system. These may be located and changed without affec¬ 
ting the program. 



Page 2 


’EXPRESSION NOT ON TAPE’ is typed when an operation 
on a particular symbol is called for without having 
first defined the symbol with an EQAT.„ 

’NUMBER TOO LARGE’ occurs when a fixed point integer 

47 ... 

exceeds 2 . Note all arithmetic is exact and hence 

round-off is not allowed. 


'TABLE OVERFLOW AT XXXXX’ is recorded when the work¬ 
ing table beginning at octal XXXXX overflows with BCD 
information. The six working tables are, at present, 
each 1900 words in length. In the next version, this 
restriction will be eliminated by including an expand¬ 
able table feature. This is not a severe limitation 
if the user programs his problem wisely so as not to 
allow the program to generate an algebraic expression 
larger than 1900 BCD words. 

The time required for an ALGY run is difficult to estimate. 
Depending on how complex the input program is, it may take from a 
few minutes to several hours. Seven to forty minutes, however, is 
an average run for most problems programmed for ALGY. 

The program is assembled at M/4000 and requires the remainder of 
a 16K machine. It uses 8 index registers and is core independent. 
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present 

ALGY commands are:* 

EQAT 

(Equate) 

SBST 

(Substitute) 

OPEN 

(Remove Parenthesis) 

FCTR 

(Factor) 

INQT 

(Internal Equate) 

DONE 

(End of Preceding Run) 

LAST 

(Finish of all Runs that are Stacked). 


Card columns 1 thru 4 of ALGY input program cards are reserved 
for card sequencing since order is of the utmost importance. All 
other columns may be used for the program• Blank cdgLumns are ignored 
The user MUST terminate each command followed by any expressions with 
a period to indicate to ALGY that this is the end of the present 
command. Several programs may be stacked on one tape fox one run 
if they are separated by DONE commands. After the last program, 
twelve cards must follow with the code LAST in the first 4 cc of 
of each card. Note this includes cc 1-4. 


ALGEBRAIC MANIPULATION PROGRAM, M. Bernick, E.D. 
Callender, J. R. Sanford; Western Joint Computer Conference, 
Los Angeles, 1961. 


J. R. Sanford 
June 19, 1961 
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ROUTE LIST 

Please read, check your name, date 
and return to basket: 

Date Read 

J. DUNN _ 

J. FRANZO _ 

B. FRIEDMAN _ 

B. MCCOY _ 

G. MECHALAS _ 

J. QUINN 

O 

H. TAMANAHA _ 

W. WOOD __ 

C. LEVENTHAL nh-.f 


O 
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ALGY - AN ALGEBRAIC MANIPULATION PROGRAM 

M. D. Bernick, E. D. Callender and J. R. Sanford, 

% 

Western Development Laboratories - Philco Corporation - Palo Alto, California 
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‘ Summary 

In a great variety of scientific problems, 
the reduction of complex analytical expressions 
is highly desirable but often such reductions, 
although straight forward, are extremely lengthy 
and laborious! The following paper describes a 
program written for a high-speed digital computer 
which accepts algebraic expressions as input and 
outputs a similar set of modified expressions. 

The description Includes the definition of the 
ALGY operations used to obtain the desired results, 
followed by an explanation of the logical flow of 
the program, and concluding with a description of 
future operations which will be incorporated into 
the system. 

Introduction 


O: 


The kinds of problems which initiated inte¬ 
rest in general purpose high-speed digital compu¬ 
ters were, for the most part, problems which in- ‘ 
volved an extreme amount o^f arithmetic. Without 
computers, in many cases, no attempt could be 
made to solve them, as valuable as.their solutions 
were deemed to be, not only because of the time 
required to perform the computations, but also be¬ 
cause of the very small probability that the re¬ 
sults after months of hand calculation would be 
correct. With the advent of the electronic compu¬ 
ter, the arithmetic involved in these problems be¬ 
came a trivial matter and solutions were easily 
effected with a high degree of reliability. 

Recently, an analogous difficulty has arisen 
in solving another kind of problem. We wish to 
solve systems of differential equations by pertur¬ 
bation methods. These problems, rather than in¬ 
volving arithmetic, required an overwhelming 
amount of algebraic manipulation. The only feas¬ 
ible way to handle this kind of problem is, again, 
to "let the computer do it", and it was for this 
purpose that the computer program called "^GY" 
was developed. 

ALGY is an interpretive routine through the 
use of which the programmer or mathematician may 
■ instruct the computer to perform certain algebraic 
manipulations. ALGY is basically an elaborate 
scheme for the manipulation of alphanimieric bit 
patterns. The input and output used with ALGY are 
alphanumeric algebraic statements. In this paper, 
we will give the definitions pertinent to the 
ALGY program, describe the currently available.al¬ 
gebraic manipulations in a brief.description of 
the flow of the ALGY'program, demonstrate by use 
of an example an ALGY program, and, finally, give 
a brief outline of future algebraic operations 
and applications. 


Definitions 

In order to understand the manipulation 
which ALGY performs, it is necessary to define a 
few special terms. The basic building block in 
ALGY is the BCD character. These characters are 
combined in various ways into quantities. There 
are three types of quantities in an ALGY program: 
numeric, such as 51/725; special, such as plus, 
minus, period, parentheses, dollar sign, asterisk 
and quasi-alphabetic, such as cos 5X. Because it 
is desirable in algebraic manipulation to do 
exact arithmetic, all numbers are represented as 
fractions. The restriction on the numeric quan¬ 
tity is that the total number of decimal digits 
of the numerator and denominator must be less 
than or equal to 15. Under this restriction, 
arithmetic operations are exact. The quasi-alpha¬ 
betic quantities, also, must have less than 16 
characters in them and they must begin with a let¬ 
ter. Those restrictions are mechanical ones and 
could be removed by going to multiple arithmetic 
precision and using larger storages. Of course, 
in both numeric and quasi-alphabetic quantities, 
no special symbols can appear. 

A group is an algebraic expression contained 
within a plus, minus or a parenthesis. It may 
contain several quantities, for example 

-13/2 5*X$ 2*sin2X*Coe f 
is a group. 

An expression is any algebraic combination 
of groups and/or quantities which are terminated 
by a period. Expressions are tagged with a name. 
This name may also be a quantity in another ex¬ 
pression. 

Throughout the remainder of this paper, re¬ 
ference will be made to different programs, the 
ALGY system and particular ALGY programs. The 
mathematician writes the ALGY program which is 
processed by the ALGY system. ALGY does not ma¬ 
nipulate equations, but only expressions. How¬ 
ever, it is easily seen that for algebraic mani¬ 
pulations, expression manipulation is sufficient, 

ALGY Operations 

There are a few general restrictions on the 
size and type of algebraic expression that ALGY 
can handle. Any expression can contain at most 
4500 BCD charaetjers. Also, all exponents must be 
positive integers and the only available symbols 
are the usual 64 BCD characters. 

The currently’ available basic ALGY commands 
are EQAT, INQT, BUGG, OPEN, SBST,' FCTR, TRGA and 
DONE. When the ALGY system was being designed, 
we felt that these commands constituted a minimal 
system to perform the algebraic manipulations 
that we were interested in performing. Following 
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is a brief description of each command. It is 
very easy to learn to use ALGY. Txro hours of in¬ 
struction are all that is usually required. 

EOAT ; 

Equate merely records on tape the left and 
right hand sides of the equation. The algebraic 
expression on the right hand side of the equate 
symbol is always proceeded by its name, that is, 
the symbol used on the left of the equate symbol. 
This method uniquely determines all expression 
recorded on the tape. 

INOT ; 

Internal equate renames an expression already 
on tape, preserving the recorded name. This 
allows an algebraic expression to bo re-equated 
without having to write the whole expression over 
again. 

BUGG ; 

Bugg is essentially an "unequate" operation. 

It searches the tape for the tag that is to be 
"bugged" and deletes it. This is useful if the 
user wishes to define a particular variable se¬ 
veral different ways during a single ALGY prograiq. 

OPEN ; 

Open removes parentheses from an algebraic 
expression. To do this, it performs all alge¬ 
braic multiplication necessary, grouping identi¬ 
cal terms., and sorting in a quasi-alphabetical 
manner. 

SBST ; 

SBST substitutes one or more expression in a 
given expression. The routine inserts parenthe¬ 
ses about each expression substituted. 

FCTR : 

FCTR factors a given expression with respect 
to a single variable, which may be exponentiated 
with the option of equating its coefficient to a 
given symbol for future reference. The expres¬ 
sion may be factored with respect to several va¬ 
riables V7ith the restriction that if a particular 
group contains two-or more variables to be fac¬ 
tored , it can be factored with respect to only 
one of the variables. 

TRGA ; 

Trig A expands a product of sin and cos func¬ 
tions of a given argument to a sum of sin and cos 
functions of multiple angles. An exponentiated 
sin or cos function would fall under this catego¬ 
ry. 

DONE ; 

Done is a control word which allows several 
independent problems to be processed dur.ing the 
same run. 

Logical Flow of ALGY 

ALGY accepts algebraic expressions as input, 
processes these expressions in the manner in ^ 
which the user has programmed, and outputs a 


similar set of expressions. To accomplish this, 
a logical sequence of events is followed. 

The algebraic equations are coded in the 
ALGY format which in essence is simply rewriting 
them on.coding sheets, using English letters 
instead of Greek symbols when applicable, followed 
by all the ALGY operations necessary to obtain the 
desired results. After the program is key punched 
it is submitted for recording on tape. 

ALGY accepts the coded statements, printing 
and performing all operations directed by the in¬ 
put program. A very simple example follows to fa¬ 
cilitate explaining the logical flow of ALGY. 
Consider 

e(f,8) = (fg + 1)^ 

f(x) = 1 + Ax + 1/2 A^x^ + 1/6 A^x^ 

g(x) = Bx - 1/6 B^x^ + 1/120 B^x^ - 1/5040 B^^ 

and suppose the factors of x^^, , x^, x^ and 

of the function e are desired, neglecting all 
terms of order greater than 11. The ALGY input 
program would appear as follows: 

BOAT E = (F*G + 1/1)$3. ie(Equate E = (FG + 1)^). 

EQAT F = 1/1 + A*X + 1/2*A$2 + 1/6*A$3^$3. 

EQAT G = B^«X - 1/6*B$3 + l/120’^^$5*X$5 
- 1/5040*B$7X$7. 

SBST E/F,G. ie(Substitute in E, the expressions 
equal to F and G. 

OPEN E. ie(Remove all parentheses). 

FCTR E/X$ll ,E11/X$9 ,E9/X$7 ,E7/X$4 ,E4/X$3 ,E3/ ,ER. 

ie(Factor E with respect to X$ll and 
call the coefficient Ell, factor the 
remainder of E with respect to X$9 
calling its coefficient E9, etc., tag¬ 
ging the remainder of E after all fac¬ 
toring is completed, ER) 

EQAT X = 0/1. 

SBST Ell/X. 

OPEN Ell. 

DONE. 

ALGY will accept the first three EQAT com¬ 
mands , print and store the algebraic expressions 
on tape, where each expression is identified by 
its tag on the left-hand side of the equate sym¬ 
bol. It then accepts the SBST command, searches 
the tape for the expression equal to E and reads 
it into memory. The routine locates and reads the 
expression equal to F, and examines E, substitu¬ 
ting the F expression with parentheses around it 
each time it appears in E. After F has been sub¬ 
stituted, the same procedure is done for the ex¬ 
pression G. The resulting substitution in E 
would appear in print as follows: 
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E » ((1/1 + A*X + 1/2*A$2*X$2 + 1/6*A$3X$3)*(B*X 
' - 1/6*B$3*X$3 + 1/120*B$5*X$5 
- 1/5000*B$7*X$7) + 1/1)$3. 

ALGY accepts the OPEN command and commences 
removing the parentheses in the E expression 
above. The results are printed and stored on tape. 
The system then enters FACTOR which will factor E 
•with respect to each variable requested. It then 
prints and stores the coefficients of each factor 
as well as the new factored E expression as fol¬ 
lows : 

Ell «= Ell(x”,A,B) where n assxunes all inte¬ 
gers 1 through 19 

E9 = E9(X,A,B) 

E7 = E7(X,A,B) 

E4 = E4(X,X^,A,B) 

E3 =■ E3(A,B) 

ER » ER(X,X^,A,B) 

E = E11*X$11 + E9*X$9 + E7*X$7 + E4*X$4 
+ E3^«X$3 + ER. 

To eliminate .all higher order terms in Ell, 
simply EQAT x to zero, SBST x into Ell and then. 
Ell = E11(A,B). 2 

In this manner the coefficients of X and X”^ 
can be accurately determined with a minimum of 
effort on the part of the user. The computer cost 
of the solution for a few typical problems is less 
than 1/6 the cost of the solution obtained by ma¬ 
nual labor, assuming that the man performing the 
algebraic manipulations is as reliable as the 
computer. 

Below is a flow diagram for the ALGY system. 
Because of the logical complexity of each sub¬ 
routine , detailed flow charts have not been in¬ 
cluded in this paper. 

Future Operations 

We will tremendously increase, during the 
next few years, the scope and number of allowable 
ALGY commands. Because of the specific problem 
in-perturbation theory for which ALGY was origi¬ 
nally designed, we will immediately develop two 
mpre trigonometric manipulations called TRIG B 
and TRIG C. TRIG B allows angle variables to be 
1 separated using the laws of addition for the sin 
and cos functions. TRIG C is, in a certain sense, 
the inverse operation- to TRIG A. In TRIG C, sins 
and cos of multiple angles are reduced to powers 
of the sin and cos of the angle. 

There are many algebraic operations that sug¬ 
gest themselves now that we have the basic tools 
for algebraic manipulation developed. Our future 
plans include differentiation, restrictive forms 


of integration and solutions of linear systems 
using determinants. The restriction on the ex¬ 
ponents will be lessened. We have already found 
several cases where "super" ALGY commands would 
be of value. For instance, it would be extremely 
desirable to have a command to generate a poly¬ 
nomial of given degree when only the ith term is 
given. There are also numerous form of factoriza¬ 
tion which suggest themselves. It should also be 
noted that the ALGY coded program is a straight- 
flow program just as the first numerical programs 
were. Undoubtedly, we will develop a loop tech¬ 
nique for the ALGY system. 

Conclusion 

ALGY represents a first step in a new form 
of computer usage. ALGY is not a general problem 
solver. If the mathematician does not know how to 
algebraically manipulate his equations, ALGY can 
be of little help. But ALGY is an extremely pow¬ 
erful tool in the hands of an intelligent user. 

It ,enables the mathematician to consider and to 
solve problems that he would otherwise never con¬ 
sider .because of the large amounts of algebraic 
manipulation necessary for a solution. It en¬ 
ables him to try different forms of a solution 
and use different approaches to the same problem, 
where before he was often committed to Just one 
approach because of the large amount of time ne¬ 
cessary to verify that one method. 
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ALGY INPUT 
PROGRAM 



INITIALIZE 
TAPES AND 
INTERNAL TABLES 


ACCEPT AND 
PRINT INPUT 
COMMAND 



INTERPRET COMMAND 
AND EXIT TO 
APPROPRIATE ROUTINE 


SEARCH AND READ 
EXPRESSION 
WHICH IS TO BE 
OPERATED UPON 



PRINT AND STORE 
RESULTING 
EXPRESSION 

















ALGY Algebraic Manipulation Program 
Operating Instructions and Program Statistics 

Magnetic Tapes 

OUT ALGY Input Program in code mode 
lUT Ipt;ermediate scratch tape 

3UT Printer output tape 

All three tapes must have write enable rings. 

Note: Program uses USE TAPE table in MESS (WDL Executive system) 
Restart and Termination 

Restart Procedure : None 
Successful Terminations 

A successful ALGY termination is indicated by 'FINISH OF ALGY RUN 
on the console typewriter and an exit to M/620 in SC. 

Other Terminations 

A run may terminate by any of several error exits where one of 
the*following is typed on the console typewriter: 

'PROGRAM NOT ON TAPE' is indicated when a tape is mounted with 
no ALGY INPUT PROGRAM recorded on it. 

'EXPRESSION NOT ON TAPE* is typed when an operation on a 
particular symbol is called for without having first defined 
the symbol with an EQAT. 

'NUMBER TOO LARGE' occurs when a fixed point integer exceeds 2^^. 
Note all arithmetic is exact and hence round-off is not allowed, 
'TABLE OVERFLOX AT XXXXX' is recorded when the working table 
beginning at octal XXXXX overflows with BCD information. The 
six working tables are, at present, each 1900 words in length. 

In the next version, this restriction will be eliminated by 
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including an expandable table feature. This is not a severe 
limitation if the user programs his problem wisely so as not 
to allow the program to generate an algebraic expression larger 
than 1900 BCD words. 

Timing 

The time required for an ALGY run is difficult to estimate. Depending 
on how complex the input program is, it may take from a few minutes to 
several hours. Seven to forty minutes, however, is an average run for 
most problems programmed for ALGY. 

Input 

The present ALGY commands are:* 

EQAT (Equate) 

SBST (Substitute) 

OPEN (Remove Parenthesis) 

FCTR (Factor) 

INQT (Internal Equate) 

DONE (End of Preceding Run) 

LAST (Finish of all Runs that are Stacked). 

Card columns 1 thru 4 of ALGY input program cards are reserved for 
card sequencing since order is of the utmost importance. All other columns 
may be used for the program. Blank columns are ignored ! The user MUST 
terminate each command followed by any expressions with a period to indicate 
to ALGY that this is the end of the present command. Several programs may be 
stacked on one tape for one run if they are separated by DONE commands. After 
the last program, twelve cards must follow with the code LAST in the first 4 cc 
of every 8 cc of each card. Note this includes cc 1-^4, 

* See ALGY - AN ALGEBRAIC MANIPULATION PROGRAM, M. Bernick, E. D. Callender, 

J, R. Sanford; Western Joint Computer Conference, Los Angeles, 1961* 




TITLE: 

COr-TL£T: 
PROGRAH'IER: 

DA'IS: 

SOURCE LANGUAGE: 
HXNXKUiS MACHINE; 


Ai-GY - All Algebraic l'’Criiipu.Iai:iou P'rograro 
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bit patterns and produces a njodified set of algebraic 
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ACGY, , 

AN algebraic MANIPULATION PROGRAM FOR THE pi 

JR0002 


PHILCO 

CORP., WESTERN 

DEVELOPMENT LABORATORIES 

JR0003 


PALO ALTO* CALIFORNIA 


JR0004 


MAY 1* 

1961 


JR0005 


JERALD 

R* SANFORD 


JR0006 


AFEND 

39$ 


JROOO? 


NAME 

JRS 


.JR0008 


sEt 

M/4000 


JR0009 


SAME 

SAjSI 


jROOlO 


SAME 

SUBSTA*MY 


JROOll 


SAME 

SUBSTB*MN 


JR0012 


SAME 

MP»MULTC 


JR0013 


SAME 

T2>F1 


JR0014 


SAME 

T3*F2 


JR0015 


SAME 

SORTCjG 


JR0016 


ASGN 

USE*M/600 


JR0017 

OPEN 

TJM 

OPNX 

REMOVE PARENTHESES 

JR0018 


CM 

CTE 

CLEAR FLAG AND FOLLOWING 

JR0019 


CM 

MFFl 

FLAG FOR WITHIN PARA 

JR0020 


CM 

CTL 

N TH ORDER COUNTER 

JR0021 


CM 

CTLP 

RUNNING COUNTER 

JR0022 


TMD 

LC+2 

SET OPENM 

JRG023 


TDM 

LV+2 


JR0024 


TMD 

LC+5 

SET El 

JR0025 


TDM 

LV-F5 


JR 0026 


TMD 

LC+8 

SET MV 

JR0027 


TDM 

LV-l-8 


JR0028 


TMD 

LC49;. 

SET MN 

JR0029 


TDM 

LV+9' 


JR0030 


TMD 

LC422 

SET MULTA 

jROOsi 


TDM 

LV+22 


JR0032 


TMD 

LC423 

SET MULTB 

JR0033 


TDM 

LVF23 


JR0034 


TMD 

LC+24 

SET MULTC 

JR0035 


TDM 

LV+24 

FIND ORDER OF PARENTHESES 

JR0036 

YFB 

TMD 

LV’+'Z 

BRING ON OPENM 

JR0037 


JMP 

B 


JR0038 


TMD- 

PTABL 

END CODE 

JR0039 


JAED 

OPN2 


JR0040 


TMD 

PTABLF5 

( 

JR0041 


JAED 

YFD 


JR0042 


TMD 

PTABL+6 

) 

JR0043 


JAED 

YFE 


JR0044 

YEC 

TIXZ 

2*4X 

NO 

JR0045 


JMP 

NBV 

NEXT BRING ON OPENM 

JR0046 


JMP 

YFB+IH 


JR0047 

YFD 

TMA 

CNST+2 

1B47 

JR0048 


AMS 

CTLP 

LEFT PARA 

JR0049 


TMD 

LV+2 

SAVE LOC IN OPENM 

JR0050 


TDM 

LW+6 


JR0051 


JMP 

YFC 


JR0052 

YFE 

TMA 

CTL 

FIND HIGHEST ORDER 

JR0053 


TMD 

CTLP 


JR0054 


JAED 

YFF 


JR0055 


JAGD 

YFF 


JR0056 


TDM 

CTL 


JR0057 


TMD 

LW+6 

FIND LOC OF INNERMOST NEST 

JR0058 


TDM 

LW4*7 


JR0059 

YFF 

CSM 

CNST-}*2 

REDUCE FOR RIGHT PARA 



JR0060 


AMS 

ctLp 

JR0061 


JMP 

YFC 

JR0662 

OPN2 

TMb 

LC-fZ 

JR0063 


TDM 

LV+2 

JR0064 


TMA 

ctL 

JR0065 


JM 

YFG 

JR0066 


JMP 

OPNX-^lH 

JR0067 

YFG 

TMD 

Y44 

JR0068 


TDM 

LW-flO 

JR0069 


TMD 

Yi 

JR0070 


TDXLC 

*4X 

JR0071 


TDXRC 

1H>5X 

JR0072 


JMP 

BSQ 

JR0073 


JMP 

SLW-lH 

JR0074 


TMD 

Y2 

JR0075 


TDXLC 

>4X 

JR0076 


TDXRC 

iH>5X 

JR007T 


JMP 

BSE 

JR0078 


JMP 

SLW-iH 

JR0079 


JMP 

MULT 

JR0080 


TMD 

Y3 

JR0081 


TDXLC 

5 4X 

JR0082 


TDXRC 

IHjSX 

JR0083 


JMP 

BLOCK 

JR0084 

OPNX 

JMP 

(P) 

JR0085 


TMD 

LC-f2 

JR0086 


TDM 

LV+2 

JRG087 

YFI 

TMb 

LVT2 

JR0088 


JMP 

B 

JR0089 


TMD 

LV+9 

JR0090 


JMP 

S 

jR009i 


TIXZ 

9i5X 

JR0092 


JMP 

NSV 

JR0093 


TMA 

LW4*7 

JR0094 


TMD 

LV+2 

JR0095 


JAED 

YFU 

JR0096 


TIXZ 

254X 

JR0097 


JMP 

NBV 

JR0098 


JMP 

YFI+IH 

JR0099 

YFU 

TMD 

LV+9 

jROiOO 


TDM 

LW+8 

JROIOI 


TMD 

LC4‘24 

jR0i02 


TDM 

LV+24 

JR0103 

OPN5 

TIXZ 

7*4X 

JR0104 


JMP 

NBW 

JROIOS 


JMP 

B 

JR0106 


TMD 

PTABL+6 

JR0107 


JAED 

yfk 

JRO-108 


TMD 

LV+24 

JR0109 


JMP 

S 

JROIIO 


TIXZ 

24>5X 

JR0111 


JMP 

NSV 

JR0112 


JMP 

OPN5 

JR0113 

yfk 

TIXZ 

7i4X 

JR0114 


JMP 

NBW 

JN0115 


Tixz 

2455X 

jROll^ 


JMP 

SLWV 

JR0117 


TMb 

LW4-7 

JR0118 


JMP 

B 

JR0119 


TMD 

PTABL-F4 


ENTER^CtLP TO 0> CTL TO NTH 


NO 


LW+10>4X 1/1 TO 

LV+22>5X MULTA 
BRING STORE QUANITY 
END CODE MULTA 

LV+2>4X OPENM 
LV+23>5X MULTB 
BRING STORE EXPRESSION 
END CODE MULTB 

multiply 

MULTC^4X 
OPENM>5X 
transfer table 
EXIT OPEN 
SET OPENM 


BRING ON OPENM 

STORE IN MN 

NEXT STORE ON MN 
LOG INNER NEST 
LOC OPENM 
IF equal Tp YFU 

NEXT BRING ON OPENM 

SAVE LOC OF MN 
SEARCH FOR EXPONENTIAL 
SET MULTC 


NEXT BRING ON OPENM 
BRING ON OPENM 
) 

NO 

store in MULTC 
NEXT STORE IN MULTC 


NEXT BRING ON OPENM 

END CODE MULTC 

BRING ON OPENM 
$ 



JR 0120 


JAed 

YFL 


JR0121 


JMP 

Yf=^M 

NO 

JR0122 

YI^L 

tMd 

Y4 


JR0123 


tdxLc 

|4X 

MULTCf4X 

JR0124 


TDXRC 

iH)5X 

MULTB>5X 

JR0125 


JMP 

BLOCK 

TRANSFER TABLE 

JROI 26 


TIXZ 

7i>4X 


JR0127 


JMP 

NBW 

NEXT BRING ON OPENM 

JR0128 


TMD 

LC+5 

SET El 

JR0129 


TDM 

LV+5 


JROI 3 O 


TMD 

Y 2 


JR0131 


TDXLC 

i5X 

LV+2>5X 

JR0132 


AIXO 

3j5X 

LV+5^5X 

JR0133 


JMP 

BSQ 

BSQ OPENM TO El 

JR0134 


JMP 

SLW-IH 

END CODE El 

JROI 35 


TMD 

LC+5 


jR0i36 


TDXLC 

»3X 

El 

jR0i37 


JMP 

RT 

BCD TO BINARY 

JR013B 


TMA 

RTW+1 

number at B47 

jR0i39 


TDM 

CTE 

N TH POWER 

JR0140 

YFN 

TMD 

CNST+2 

1B47 

JR0141 


JAED 

YFM 


JRG142 


TMD 

Y5 


JR0143 


TDXLC 

j4X 

MULTC»4X 

JR0144 


TDXRC 

1H>5X 

MULTA^SX 

JR0145 


JMP 

BLOCK 

TRANSFER TABLE 

JR0146 


JMP 

MULT 

MULTIPLY 

JR0147 


CSM 

CNST+2 

1B47 

JR0148 


AMS 

GTE 

N-IST POWER TO N 

JR0149 


JMP 

YFN 


JR0150 

YFM 

TMD 

LG+24 

SET MULTC 

jROiSl 


TDM 

LV+24 


jR0i52 


TMD 

Y6 


JR0153 


TDXLC 

♦ 4X 

LV+24#4X MULTC 

JR0154 


TDXRC 

IHfSX 

LW+8>5X MN 

JRG155 


JMP 

BSE 

BRING STORE EXPRESSION 

JR0156 


TMD 

PTABL+6 

BRING j 

JR0157 


TDM 

T1 


JR0158 


TMD 

LW+8 


JR0159 


JMP 

s 

STORE IN MN 

JR0160 


TIXZ 

8>5X 


JR0161 


JMP 

NSW 

NEXT STORE ON MN 

JR0162 


TMA 

CTL 


jR0i63 


SM 

CNST+2 

1B47 

JR0164 


TAM 

CTLP 

REDUCE ORDER 

JR0165 

YFP 

TMD 

LW+7 

BRING ON OPENM 

JR0166 


JMP 

B 


JR0167 


TMD 

LW+8 


JR0168 


JMP 

S 

STORE IN MN 

JR0169 


TIXZ 

8*5X 


JR0170 


JMP 

NSW 

NEXT STORE ON MN 

JR0171 


TMA 

Tl 


JR0172 


TMD 

PTABL 

END CODE 

JR01T3 


JAED 

0PN4 


jR0i74 


TMD 

PTABL+6 

) 

jR0i75 


JAed 

YFS 


jR0i76 


TMD 

PTABL+5 

( 

JR0177 


JAed 

YFR 


JR0178 

YFO 

Trxz 

If AX 

NO 

JR0179 


JMP 

NBW 

NEXT BRING ON OPENM 




V 

JROISO 


Jmp 

YFP+iH 



JR0181 

VRS 

CSM 

CNST4-2 



JR0182 


AMS 

CTLP 

.REDUCE ORDER 


jR0l83 


JMP 

YFQ 


o 

JR0184 

YFR 

TMA 

CMST+2 



jR0i85 


AMS 

CTLP 

INC ORDER 


jR0i86 


TMD 

CTL 



JR0187 


JAed 

YFU+2H 



JR0188 


Tixz 

7>4X 



JR0189 


JMP 

NEW 

NEXT BRING ON OPENM 


JR0190 


Jmp 

yfp*f1h 

PREPARE TO REMOVE PARA 


jROl9i 

0PN4 

TIXZ 

8>5X 


jR0i92 


JMP 

SLWW 

END CODE MN 


JR0193 


TMD 

Lc+2 

SET OPENM 


JR0194 


TDM 

L\/+2 



JR0195 


TMD 

Lc+5 

SET El 


JR0196 


TDM 

LV+5 



JR0197 


TMD 

Lc+8 

SET MY 


jROi98 


tbM 

LV+8 



jR0i99 


TMD 

LC+9 

SET MN 


jR02Od 


TDM 

L\/49 



JR0201 


TMD 

10*1*22 

SET MULTA 


JR0202 


TDM 

LV+22 



JR0203 


TMD 

Lc+23 

SET MULTB 


JR0204 


TDM 

L\/+23 



JR0205 


TMD 

LC*F24 

SET MULTC 


JR0206 


TDM 

LV+24 



JR0207 


TMD 

Y7 



JR0208 


tdxLc 

44X 

MNi4X 

o 

JR0209 


TDXRC 

1H>5X 

OPENM*5X 

JR0210 


JMP 

BLOCK 

TRANSFER table 


JR0211 


TMD 

LV+2 

SAVE LOC OPENM 


JR0212 


TDM 

LW+ll 



JR0213 


CM 

ctLP 



JR0214 

0PN16 

TMD 

LV+2 



JR0215 


Jmp 

B 

BRING ON OPENM 


JR0216 


TMD 

PTABL 

END CODE 


JR0217 


JAED 

0PN17 



jR02i8 


TMD 

PTABL+6 

) 


JR0219, 


JAED 

YFTl 



JR0220 


TMD 

PTABL+5 

( 


JR0221 


JAED 

YFT2 



JR0222 

YFT 

Tixz 

2#4X 

NO 


JR0223 


JMP 

NBV 

NEXT BRING ON OPENM 


JR0224 


JMP 

0PN16+iH 



JR0225 

YFTl 

CSM 

CNST42 

REDUCE RUNNING COUNTER 


JR0226 


AMS 

CTLP 



JR0227 


TIXZ 

2>4X 



JR0228 


JMP 

NBV 

NEXT BRING ON OPENM 


JR0229 


JMP 

0PN16+1H 



JR0230 

YFT2 

TMA 

CNST+2 



JR0231 


AMS 

CTLP 

INCREASE RUNNING COUNTER 


JR0232 


TMD 

CTL 

multiply term on LEFT 


JR0233 


JAED 

(P)+2H 

o 

JR0234 


JMP 

YFT 

AND THEN ON RIGHT 

JR0235 


TMD 

LV42 


JR0236 


TDM 

LW43 

save LOC OF Left para 


JR0237 


Tixz 

2>4X 



JR0238 


Jmp 

NBV 

NEXT BRING ON OPENM 


JR0239 

YFV 

TMD 

LV+2 




- 

JR0240 


JMP 

B 

BRING ON OPENM 


JR0241 


TIXZ 

2*4X 



JR0242 


JMP 

NBV 

next bring on OPENM 

/ \ 

JR0243 


TMA 

Ti 


LJ 

JR0244 


TMD 

PTABL+e 

) 


JR0245 


JAED 

YFVl 



JR0246 


TMD 

LV+24 

NO 


JR0247 


JMP 

S 

STORE IN MULTC 


JR0248 


TIXZ 

24)5X 



JR0249 


JMP 

NSV 

NEXT STORE ON MULTC 


JR0250 


JMP 

YFV 



JR025i 

YFVl 

TIXZ 

24»5X 



JR0252 


JMP 

SLWV 

END CODE MULTC 


JR0253 


TMD 

LV+2 

SAVE LOC JUSf PAST RIGHT 


JR0254 


TDM 

LW+10 

PARENTHESES 


JR0255 

0PN8 

TMD 

LC+23 



JR0256 


TDM 

LV+23 

SET MULTB 


JR0257 


TMD 

LV+2 



JR0258 


JMP 

B 

BRING ON MULTB 


JR0259 


TMD 

PTABL+3 

ASTER ICK 


JR0260 


JAED 

OPN81 



jR026i 


Jmp 

0PM10 

NO 


JR0262 

0PN8i 

TIXZ 

2>4X 



JR0263 


JMP 

NBV 

NEXT BRING ON OPENM 


JR0264 


JMP 

B 

BRING ON OPENM 


JR0265 


TMD 

PTABL+5 

( 


JR0266 


JAED 

YFW 



JR02;67 


JMP 

YFWl 

NO 

o 

JR0268 

YFW 

TMD 

CNST+2 

1B47 

JR0269 


TDM 

MFFl 

SET FLAG FOR WITHIN PARA 

JR0270 


TIXZ 

2f4X 



JR0271 


JMP 

NBV 

NEXT BRING ON OPENM 


JR0272 


JMP , 

B 

BRING ON OPENM 


JR0273 

YFWl 

TMD 

PTABL 



JR0274 


JAED 

YFX 



JR0275 


TMD 

PTABL+1 

+ 


JR0276 


JAED 

YFX 



JR0277 


TMD 

PTABL+2 

— 


JR0278 


JAED 

YFX 



JR0279 


TMD 

PTABL+5 



JR0280 


JAED 

0PN9A 



JR0281 


TMD 

PTABL+6 

) 


JR0282 


JAED 

YGF 



JR0283 

YFW2 

TMD 

LV+2 

NO 


JR0284 


JMP 

B 

BRING ON OPENM 


JR0285 

' 

TMD 

LV+23 



JR0286 


JMP 

S 

STORE IN MULTB 


JR0287 


TIXZ 

23,5X 



JR0288 


JMP 

NSV 

NEXT STORE ON MULTB 


JR0289 


JMP 

YEW+2H 



JR0290 

YFX 

TMA 

MFFl 



JR0291 


TDM 

Tl 



JR0292 


TMD 

CNST+2 

1B47 


JR0293 


JAED 

YFW2 


o 

JR0294 


Jmp 

0PN9 

NO 

JR0295 

YFXl 

TIXZ 

2i4X 



JR0296 


JMP 

NBV 

NEXT BRING ON OPENM 


JR0297 


CM 

MFFl 

CLEAR FLAG 


JR0298 

OPN9 

TMD 

LV+2 

SAVE LOC OF OPENM 


JR0299 


TDM 

Lw+lo 





JRO^OO 


TIXZ 

24j5X 


' 

JR0301 


Jmp 

sLwv 

END CODE MULTC 


JR0302 


SIXO 

1»5X 



JR0303 


JMP 

SLW-IH 

END CODE MULTB 

C; 

JR0304 


TMb 

Y5 



JR0305 


TDXLC 

*4X 

MULTC^4X 


JR0306 


TDXRC 

1H>5X 

MULTA»5X 


JR0307 


JMP 

BLOCK 

transfer data TABLE 


JR0308 


JMP 

MULT 

ALGEBRAIC MULTIPLY 


JR0309 


JMP 

OPN8 



JR0310 

0PN9A 

TIXZ 

23>4X 



JR0311 


JMP 

DECKV 

LAST STORE ON MULTB 


JR0312 


TIXZ 

2>4X 



JR0313 


JMP 

DECKV 

LAST BRING ON OPENM 


JR0314 


Jmp 

OPN9 



JR0315 

OPNiO 

TMD 

LC4'23 



jR03i6 


TDM 

LV*i-23 

SET MULTB 


JROSIV 


TIXZ 

3#4X 



JR0318 


JMP 

DECKW 

LAST BRING ON OPENM 


jRD3t9 


TMA 

LW4‘3 



JR0320 


TMD 

Y8 

0PENM-i*42 


JR0321 


JAED 

YFYY 



JR0322 


TAD 




JR0323 


JMP 

B 

BRING ON OPENM 


JR0324 


TMD 

PTABL*f3 

ASTERrCK 


JR0325 


Jaed 

YFXX 



JR0326 


TMD 

PTABL+5 

( 


JR0327 


Jaed 

YFYY 



JR0328 


JMP 

YFYYH^ZH 

NO 

D 

JR0329 

YPYY 

TIXZ 

3>4X 



JR0330 


Jmp 

NBW 

NEXT BRING ON OPENM 


. JR0331 


TMD 

LW+3 



JR0332 


TDM 

LW+5 

SAVE LOCATION IN OPENM 


JR0333 


JMP 

YGA 



JR0334 

YFXX 

TIXZ 

3>4X 



JR0335 


JMP 

DECKW 

LAST BRING ON OPENM 


JR0336 


TMA 

LW+3 



JRG337 


TMD 

Y8 

0PENM-*1#42 


JR0338 


JAED 

YFXXl 



JR0339 


TMD 

LW+3 



JR0340 


JMP ' 

B 

BRING ON OPENM 


JR0341 


TMD 

PTABL+I 



JR0342 


JAED 

YFY 



JR0343 


TMD 

PTABL+2 

- 


JR0344 


JAED 

YFY 



JR0345 


TMD 

PTABL+5 

( 


JR0346 


JAED 

YFY 



JR0347 


JMP 

yfxx 

NO 


JR0348 

YFXXi 

TIXZ 

3#4X 



JR0349 


JMP 

NBW 

NEXT BRING ON OPENM 


JR0350 


TMD 

LW+3 



jR035i 


TDM 

LW+5 



JR0352 


JMP 

YFY+4H 



JR0353 

YFY 

TMD 

LW43 


o 

JR0354 


TDM 

LW+5 


JR0355 


TIXZ 

3f4X 



JR0356 


JMP 

NOW 

NEXt BRING ON OPENM 


JR0357 


JMP 

B 

BRING ON OPENM 


JR0358 


TMD 

PTABL+5 

( 


JR0359 


JAED 

YFZ 





JR0360 


TMb 

L\/+23 

JR0S61 


JMP 

S 

JR0362 


Tixz 

23»5X 

JR0363 


JMP 

NSV 

JR0364 


JMP 

YFY-f2H 

JR0365 

YFZ 

TIXZ 

23*4X 

JR0366 


JMP 

DECkV 

JR0367 


TIXZ 

2395X 

JR0368 


JMP 

SLWV 

JR0369 


TMD 

Y5 

JR0370 


TDXLG 

|4X 

JR0371 


TDXRC 

IHiSX 

JR0372 


JMP 

BLOCK 

JR0373 


JMP 

MULT 

JR0374 

YGA 

TMA 

LW+11 

JR0375 


TMD 

LW+5 

JR0376 


JAED 

YGB 

JR0377 


TMD 

LW4-11 

JR0378 


JMP 

B 

JR0379 


TIXZ 

1154X 

JRG380 


JMP 

NBW 

JR0381 


TMD 

LV+9 

JR0382 


JMP 

S 

JR0383 


TIXZ 

9>5X 

JR0384 


JMP 

NSV 

JR0385 


JMP 

YGA 

JR0386 

YGB 

TMD 

LC+24 

JR0387 


TDM 

LV+24 

JR0388 


TMD 

LV+24 

JR0389 


JMP 

B 

JR0390 


TMD 

PTABL 

JR0391 


JAED 

OPN15 

JR0392 


TMD 

LV'J+11 

.JR0393 


JMP 

B 

JR0394 


TMD 

PTABL+5 

JR0395 


JAED 

YGDD 

JR0396 


-TMD 

PTABL+2 

JR0397 


JAED 

YGG 

JR0398 


JMP 

YGD. 

JR0399 


TMD 

LW+9 

JR0400 


JMP 

S 

JR0401 


TlXZ 

9-^3 X 

JR0402 


JMP 

NSW 

JR0403 

ygd 

TMD 

LV424 

JR0404 


JMP 

B 

JR0405 


TMD 

PTABL+2 

JR0406 


JAED 

YGD2 

JR0407 


TMD 

PTABL+l 

JR0408 


JAED 

YGD2 

JR0409 


TDM 

Tl 

JR0410 


TMD 

LV49 

JR0411 


JMP 

S- 

JR0412 


TIXZ 

9#5X 

JR0413 


JMP 

NSV 

JR0414 

YGD2 

TMD 

Y9 

JR0415 


TDXLC 

>4X-,- 

JR0416 


TDXRC 


JR0417 


JMP 

BSE 

JR0418 


JMP 

OPNiS 

JR0419 

YGDl 

TMD 

LV4-24 


ko 

STORE IN MULtB 
NEXT STORE ON MULTB 


LAST STORE ON MULTB 

END CODE MULTB 

MULTC^AX 

MULTA>5X 

TRANSFER DATA TABLE 

algebraic multiply 

BRING EXPRESSION UP tO PARA 


BRING ON OPENM 
NEXT BRING ON OPENM 
STORE IN MN 
NEXT STORE ON MN 


SET MULTC 

BRING ON MULTC 
END CODE 


bring ON OPENM 

( 


NO 

STORE 

NEXT STORE 
MULTC 


4 - 


LV+24f4X MULTC 
LV+9 5 5X-,, MN 

bring store EXPRESSION 






JR0420 


Jmp 

B 

BRING.ON MULTC 


JR0421 


TMD 

PTABL 

END CODE 


JR0422 


JAED 

OPN15 


C) 

JR0423 


TMD 

PTABL+1 

4 

JR0424 


JAED 

YGC 



Jr6425 


TMD 

PTABL+2 

- 


JR0426 


JAED 

YGCi 



JR0427 


Jmp 

YGC2 

NO 


JR0428 

YGC 

TMD 

PTABL+2 



JR0429 


TDM 

T1 

PRESENT CHARACTER 


JR0430 


JMP 

YGC2 



JR0431 

YGCl 

TMD 

PTABL+1 

4 . . 


JR0432 


TDM 

Tl 

PRESENT CHARACTER 


JR0433 

YGG2 

TMD 

LV+9 



JR0434 


JMP 

S- 

STORE IN MN 


JR0435 


TIXZ 

9>5X 



JR0436 


JMP 

NSV 

NEXT STORE ON MN 


JR0437 


TIXZ 

24>4X 

■ ........ 


JR0438 


JMP 

NBV 

NEXT BRING ON MULTC 


JR0439 


JMP 

YGDl 

_ 


JR0440 

OPN15 

TMD 

LW*flO 

SAVE OPENM LOC 


JR0441 


TDM 

LW+11 



JR0442 


TMD 

LC+5 



JR0443 


TDM 

LV+5 

SET El 


JR0444 


TMD 

LC+8 



JR0445 


TDM 

LV+8 

SET MY 


JR0446 


TMD 

LC+22 



JR0447 


TDM 

LV+22 

SET MULTA 


Jr0448 


TMD 

LC423 


o 

JR0449 


TDM 

LV423 

SET MULTB 

JR0450 


TMD 

LC+24 



JR0451 


TDM 

LV+24 

SET MULTC 


JR0452 


CSM 

CMST+2 



JR0453 


AMS 

CTLP 

REDUCE RUNNING COUNTER 


JR0454 


JMP 

OPM16 



Jr6455 

OPN17 

TMD- 

Yio 



JR0456 


TDXLG 

»4X 

LW411,4X OPENM 


JR0457 


TDXRC 

1H»5X 

LV49>5X MN 


JR0458 


Jmp 

BSE ■ 

BRING STORE EXPRESSION 


JR0459 


Jmp 

SLW-IH 

END CODE MN 


JR0460 


TMD 

Y7 



JR0461 


TDXLC 

*4X 

MN»4X 


JR0462 


TDXRC 

1H>5X 

OPENM»5X 


JR0463 


JMP 

BLOCK 

transfer DATA TABLE 


JR0464 


JMP 

OPEN+IH 



JR0465 

YGF 

TMA 

MFFi 



JR0466 


TDM 

Tl 



JR0467 


JAZ 

OPN9 



,JR0468 


JMP 

YFXl 

NO 


JR0469 

YGG 

TMD 

LV+24 



JR0470 


JMP 

B 

BRING ON MULTC 


JR0471 


TMD 

PTABL+1 

4 


JR0472 


JAED 

Y.GC 



JR0473 


TMD 

PfABL+2 

— 


JR0474 


JAED 

YGCl 


o 

JR0475 


-TMD 

PTABL+2 

NO#- . . 

JR0476 


TDM 

Tl 

PRESENT CHARACTER 


JR0477 


TMD 

-LV+9 



JR0478 


JMP 

' s^. 

STORE IN MN 


JR0479 


TIXZ 

9j5X 





‘ 

JR04B0 


JMP 

NSV 

NEXT STORE ON MN 


JR0481 


JMP 

YGDI 



JR0482 

YGDD 

TIXZ 

11>4X 



JR0483 


JMP 

DECKW 



JR0484 


TMA 

Y8 



JR0485 


TMD 

LW*fll 



JR0486 


JAED 

YGDDI 



JR0487 


JMP 

B- 



JR0488 


TMD 

PTABL+5 



JR0489 


JAED 

YGDDI 



JR0490 


TDM 

Ti • 



JR0491 


JMP 

NBV-2H 



JR0492 


TMD 

L\/+9 



JR0493 


JMP 

S 



JR0494 


Tixz 

9j5X 



JR0495 


JMP 

NSV 



JR0496 


JMP 

YGD 



JR(:)497 

YGDDI 

Jmp 

NBV-ZH 



JR0498 


Jmp 

YGD 



JR0499 


PAGE 




JR0500 

MULT 

TJM 

MULTX 

algebraic multiplication 


jR050i 


TMD 

LC+22 



JR0502 


TDM 

LV+22 

SET MULTA 


JR0503 


TMD 

LC+24 



JR0504 


TDM 

LV+24 

SET MULTC 


JR0505 


• TMD 

LC+21 



JR0506 


TDM 

LV+21 

SET SORTC 


JR0507 


Tixz 

24>5X 



JR0508 


JMP 

SLWV 

END CODE MULTC 

n 

'JR0509 


TMD 

LG+24 



JR0510 


TDM 

LV424 

SET MULTC 


JR0511 

MULT2 

TMD 

PTABL+1 



JR0512 


TDM 

Ti 

PRESENT CHARACTER 


JR0513 


TMD 

LC+25 



JR0514 


JMP 

S 

STORE IN S3 


JR0B15 


TMD 

LC+23 



JR0516 


TDM 

LV4-23 

SET MULTB 


JR0517 


TMD 

L\/+22 



JR0318 


JMP 

B 

BRING ON MULTA 


JR0519 


TIXZ 

22»4X 



JR6526 


JMP 

MB,V 

NEXT BRING ON MULTA 


JR0521 


TMA 

Ti 



JR0522 


TMD 

ptabL+I 

•f 


JR0523 


JAED 

MULT5 



JR0524 


TMD 

PTABL+2 

— 


JR0525 


JAED 

YCA 



JR0526 


TIXZ 

22f4X 

NO 


JR0527 


Jmp 

DECKV 

LAST BRING ON MULTA 


JR0$28 


JMP 

MULT5 



JR0529 

YCA 

TMD 

LC4-25 

—. —- ' 


JR0530 


Jmp 

S 

STORE IN S3 


JR0531 

MULT5 

TMD 

LV-i-22 



JR0532 


JMP 

B 

BRING ON MULTA 


JR0533 


TMD 

PTABL 

END CODE 


JR0534 


JAED 

MULT4 


o 

JR6535 


TMD 

LC‘fl2 

NO 


JR0536 


TDM 

LV4-12 

SET SORTO 


JR0537 


TMD- 

Yll 



JR0538 


TDXLC 

*4X 

MULTA>4X 


JR0539 


TDXRC 

IHfSX 

SORTO|5X 



JR0540 


JMP 

BSG 

BRING STORE GROUP 

JR0541 


TMD 

PTABL+3 

ASTER ICK 

JR0542 


TDM 

Tl 

PRESENT CHARACTER 

JR0543 


TMD 

LV-f-12 


JR0544 


JMP 

S 

STORE IN SORTO 

JR0545 


JMP 

NSV-2H 

NEXT STORE ON SORTO 

JR0546 


TMD 

Y12 


JR0547 


TDXLC 

>4X 

SORTO#4X 

JR0548 


TDXRC 

1H^5X 

SORTC>5X 

JR0549 


JMP 

BLOCK 

TRANSFER DATA TABLE 

JR0550 


TMD 

S3 


JR0551 


TDM 

S2 


JR0552 


-TMD 

LV+12 


JR0553 

.... 

TDM 

LW+4 


JR0554 

MULTI 

TMD 

Y12 


JR0555 


TDXRC 

1H#4X 

SORTC^AX 

JR0556 


TDXLC 

>5X 

SORTO>5X 

JR0557 


JMP 

BLOCK 

TRANSFER DATA TABLE 

JR0558 


TMD 

S2 


JR0559 


TDM 

S3 - 


JR0560 


TMD 

LW+4 


JR0561 


TDM 

LV+12 


JR0562 


TMD 

LV+23 


JR0563 


JMP 

B 

BRING ON MULTB 

JR0564 


TIXZ 

23+4X 


JR0565 


JMP 

NBV 

NEXT BRING ON MULTB 

Jr6566 


TMA 

Tl 


JR0567 


TMD 

PTABL+1 

+ 

JR0568 


Jaed 

MULT6B 


JR0569 


TMD 

PTABL+2 

W.. 

JR0570 


Jaed 

YCC 


JR0571 


TIXZ 

23>4X 

NO 

JR0572 


JMP 

DECKV 

LAST BRING ON MULTB 

JR0573 


JMP 

MULT6 


JR0574 

YCC 

TMD 

LC+25 


JR0575 


Jmp 

B 

BRING ON S3 

JR0576 


TMD 

PtABL+1 

-F 

JR0577 


JAED 

YCCl 


JR0578 


TDM 

Tl 


JR0579 


TMD 

LC4-25 


JR0580 


JMP 

S 

STORE IN S3 

JR0581 


JMP 

MULT6B 


JR0582 

YGCl 

TMD 

PTABL+2 

- 

JR0583 


TDM 

Tl 


JR0584 


TMD 

LC+25 


JR0585 


JMP 

S 

STORE IN S3 

JR0586 

MULT6 

TMD 

LV+23 

— 

JR0587 


JMP 

B 

BRING ON MULTB 

JR0588 


TMD 

PTABL 

END CODE 

JR0589 


JAED 

MULT2 


JR0590 

MULT6B 

TMD 

Y13 

NO 

JR0591 


TDXLC 

+ 4X 

MULIB f4X 

JR0592 


TDXRC 

IH^SX 

SORTO>5X 

JR0593 


JMP 

BSG 

BRING STORE GROUP 

JR0594 


JMP 

SLW'-IH 

END code SORTO 

JR0595 


JMP 

SORT 

multiply like terms 

JR0596 


JMP 

GATHER 

ADD LIKE TERMS 

JR0597 


JMP 

MULTI 


JR0598 

MULT4 

TMD 

LC+24 


JR0599 


TDM 

LV+24 

SET MULTC 



JR0600 


jmp 

B 

UR0601 


TIXZ 

24*4X 

JR0602 


JMP 

NBV 

JR0603 


tma 

Tl 

JR0604 


TMD 

PTABL 

JR0605 


jaed 

MULTX 

JR0606 


TMD 

L\/+24 

JR0607 


JMP 

MULT4+2H 

JR0608 

MULTX 

JMP 

(P) 

JR0609 


PAGE 


JR0610 

SORT 

TJM 

SORTX 

jROSll 


TMD 

LC+14 

JR0612 


TDM 

LV4-14 

JR0613 


TMD 

Lc+i6 

JR0614 


TDM 

LV+16 

JR0615 


TMD 

Lc+12 

JR0616 


TDM 

LV+12 

JR06I7 


TMD 

CNST 

JR0618 


TDM 

N2 

JR0619 


TIXZ 

14>5X 

JR0620 


JMP 

SLWV 

JR0621 

^S1 

TMb 

Y14 

JR0622 


TDXLC 

#4X 

JR0623 


TDXRC 

1H?5X 

JR0624 

R 

RPTAA 

8 

JR0625 


TMD 

1 »4X 

JR0626 


TDM 

1^5X 

JR0627 

STS2 

TMD 

LCT19 

JR062S 


TDM 

LVT19 

JR0629 


TMD 

LV+12 

JR0630 


JMP 

B.- 

JR0631 


TMD 

PTABL 

JR0632 


JAED 

STS 12 

JR0633 


CM 

T2 

JR0634 


CM 

T2+1 

JR0635 


TMD- 

Y15 

JR0636 


TDXLC 

|4X 

JR0637 


TDXRC 

1H*5X 

JR0638 


JMP 

BSQ- 

JR0639 


JMP 

SLW-IH 

JR0640 


TMA 

QFF 

JR0641 


TDM 

Tl 

JR0642 


TMD 

PTABL+2 

JR0643 


JAED 

STS2 

JR0644 


TMD 

PTABL+3 

JR0645 


JAED 

STS 3 

JR0646 


TMD 

LCT19 

JR0647 


TOM 

LV+19 

JR0648 


TMD 

LC-t-15 

JR0649 


TDM 

LV+15 

JR0650 


TMD- 

Y16 

jR065i 


tdxLc 

^4X 

JR0652 


TDXRC 

1H*5X 

JR0653 


JMP 

BSQ 

JR0654 


JMP 

SLW-lH 

JR0655 


JMP 

numuLt 

JR0656 


Jmp 

STS 2 

JR0657 

STS3 

TMD 

LV414 

JR0658 


JMP 

B 

JR0659 


TMD 

PTABL 


BRING ON MULTC 
NEXT BRING ON MULTC 

END CODE 
to EXIT 
NO 

EXIT MULT 

multiply like terms 

SET SORTB 
SET N2 

SET SORTO 

1/I•« 0 • • 

END CODE SORTB 

LC+13#4X 

LV+13 f5X ... 

SET 8 CONTROL WORDS 


SET T2 


BRING ON SORTO 
END CODE 


NO 

LVTl2i4X SORTO 
LVT19jSX T2 
BRING STORE QUANTITY 
END CODE t2 

PRESENT character 


ASTER ICK 
NO 

SET T2 

SET N1 

LVT19»4X t2 
LV+15>5X N1 
BRING STORE QUANITY 

numeric fraction multiply 


BRING ON SORTB 
END CODE 



JR0660 


Jaed 

YBG 


JR0661 


TMD 

LC+20 

NO 

JR0662 


TDM 

LV420 

SET T3 

JR0663 


CM 

T3 


JR0664 


CM 

T3+1 


JR0665 


TMD 

Y17 


JR0666 


TDXLC 

>4X 

LV+14»4X SORTS 

JR0667 


TDXRC 

1H#5X 

LV+20>5X T3 

JR0668 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0669 


Jmp 

SLW-IH 


JR0670 


TMA 

OFF 


JR0671 


TDM 

T1 


JR0672 


TMD 

PTABL+2 

~ 

JR0673 


Jaed 

STS 9 


JR0674 

YBB 

TMA 

T2 

NO 

JR0675 


TMD 

T3 


JR0676 


JAED 

(P)+3H 


JR0677 


JAGD 

STS9 


JR0678 


JMP 

STS 10 


JR0679 


TMA 

T2+1 


JR0680 


TMD 

T3+1 


JR0681 


JAED 

STS4 


JR0682 


JMP 

YBB+3H. 


JR0683 

STS9 

TMD 

LC+20 


JR0684 


TDM 

L\/+20 

SET T3 

JR0685 


TMD 

Yi8 


JR0686 


TDXLC 

#4X 

LV+20>4X T3 

JR0687 


TDXRC 

IHiSX 

LV+i3+5X SORTA 

JR0688 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0689 


TMD 

LV+14 


JR0690 


JMP 

B 

BRING ON SORTS 

JR0691 


TMD 

PTABL+4 

$ 

JR0692 


JAED 

YBC 


JR0693 


JMP 

STS 3 

NO 

JR0694 

YBC 

TMD 

Y19 


JR0695 


TDXLG 

♦ 4X 

LV+14*4X SORTS 

JR0696 


TDXRC 

1H,5X 

LV+13>3X SORTA 

JR0697 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0698 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0699 


JMP 

STS 3 


JR0700 

STS 10 

TMD , 

LC+19 


JR0701 


TDM 

LV+19 

SET T2 

JR0702 


TMD 

Y20 


JR0703 


TDXLC 

♦ 4X 

LV+19*4X T2 

JR0704 


TDXRC 

1H>5X 

LV+13f5X SORTA 

JR0705 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0706 


TMD 

LV+12 


JR0707 


JMP 

B 

BRING ON SORTO 

JR0708 


TMD 

PTABL+4 

$ 

JR0709 


JAED 

YBD 


jR07i0 


JMP 

STS5 

NO 

JR0711 

YBD 

TMD 

Y21 


JR0712 


TDXLC 

i4X 

LV+12f4X SORTO 

JR0713 


TDXRC 

1H,5X 

LV+13>5X SORTA 

JR0714 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0715 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0716 

STS5 

TMD 

PTABL+3 

ASTERICK 

JR0717 


TDM 

T1 

PRESENT GHARACTER 

JR0718 


TMD 

LV+13 


JR0719 


JMP 

S 

STORE IN SORTA 



JR0720 


tixz 

13j5X 


JR0721 


JMP 

NSV 

NEXT STORE ON SORTA 

JR0722 


TMD 

LC+20 


JR0723 


TDM 

LV+20 

SET T3 

JR0724 


TMD 

Y18 


JR0725 


TDXLC 

>4X 

LV+20>4X T3 

JR0726 


TDXRC 

IHiSX 

LV-fl3»5X SORTA 

JR0727 


JMP 

BSG 

BRING STORE GROUP 

JR0728 

STS7 

TMD 

Y19 


JR0729 


TDXLC 

)4X 

LV+14»4X SORTB 

JR0730 


TDXRC 

IHi 5X 

LV+13>5X SORTA 

JR0731 


JMP 

BSG 

BRING STORE GROUP 

JR0732 

STS8 

TIXZ 

13>5X 


JR0733 


JMP 

SLWV 

END CODE SORTA 

JR0734 


TMD 

Y22 


JR0735 


TDXLC 

*4X 

S0RTA»4X 

JR0736 


TDXRC 

iHiSX 

SORTB»5X 

JR0737 


JMP 

BLOCK 

TRANSFER DATA TABLE 

JR0738 


JMP 

STSi 


JR0739 

STS4 

TMD 

LC+19 


JR0740 


TDM 

L\/+19 

SET T2 

JR0741 


TMD 

Y20 


JR0742 


TDXLC 

*4X 

LV+19»4X T2 

JR0743 


TDXRC 

1H»5X 

LV+13>5X SORTA 

JR0744 


Jmp 

BSQ 

BRING STORE QUANTITY 

JR0745 


TMD 

LV+12 


JR0746 


JMP 

B 

BRING ON SORTO 

JR0747 


TMD 

PTABL+4 

$ 

jRd748 


Jaed 

YBE 


JR0749 


TMD 

CNST+2 

NO> 1B47 

JR0750 


TDM 

Tl 

PRESENT CHARACTER 

JR0751 


TMD 

LV+17 


JR0752 


JMP 

S ^ 

STORE IN EEl 

JR0753 


TIXZ 

17»5X 


JR0754 


Jmp 

NSV-- 

NEXT STORE ON EEl 

Jr6755 


Jmp 

YBEl 


Jr0756 

YBE 

TIXZ 

12#4X 


JR0757 


JMP 

NBV 

NEXT BRING ON SORTO 

JR0758 


TMD 

Y23 


Jr0759 


tdxLc 

i4X 

LV4-12*4X SORTO 

JR0760 


TDXRC 

1H>5X 

LV+17V5X EEl 

JR0761 


JMP 

BSQ • 

BRING STORE QUANTITY 

JR0762 

YBEl 

JMP 

SLW-IH 

END CODE EEl 

JR0763 


TMD 

LV414 


JR0764 


JMP 

B ' 

BRING ON SORTS 

JR0765 


TMD 

PTABL+4 

$ 

JR0766 


JAED 

ybf 


JR6767 


TMD 

CNST+2 

NO> 1B47 

JR0768 


TDM 

Tl 


JR0769 


TMD 

LV+18 


JR0770 


Jmp 

s . 

store in EE2 

JR6771 


TIXZ 

18!,5X 


JR0772 


JMP 

NSV 

NEXT STORE ON EE2 

JR6773 


Jmp 

YBFl 


JR0774 

YBF 

TIXZ 

14^4X 


JR0775 


JMP 

NBV 

NEXT BRING ON SORTB 

JR0776 


TMD. 

Y24 


JR0777 


TDXLC 

>4X 

L.V+14*4X SORTB 

JR0778 


TDXRC 

1H$5X 

LV+i8>5X EE2 

JR0779 


Jmp 

BSQ 

BRING STORE QUANTITY 




Jr6780 

YBFi 

Jmp 

SLW-IH 

END CODE EE2 


JR0781 


TMD 

Y25 

C/TMA>RTW+1C/AM»EE2 


JR0782 


JMP 

EXPAD 

EXPONENT ADD 


JR0783 


TMD 

PTABL*t*4 

$ 

1 

JR0784 


TDM 

Tl 

PRESENT character 


JR6785 


TMD 

L\/+i3 



JR0786 


Jmp 

S - 

STORE IN SORTA 


JR0787 


TIXZ 

13^5X 



JR0788 


JMP 

NSV 

next store on SORTA 


JR0789 


TMD 

LC+18 



JR0790 


TDM 

LV+18 

SET EE2 


JR0791 


TMD 

Y26 



JR0792 


tdxlc 

*4X 

LV+18»4X EE2 


JR0793 


TDXRC 

lHi5X 

LV+13»5X SORTA 


JR0794 


JMP 

BSQ 

bring STORE QUANTITY 


JR0795 


JMP 

STS7 



JR0796 

STS 12 

TMD 

LC-M3 



JR0797 


TDM 

LV+l3 

SET SORTA 


JR0798 


TMD 

LC+14 



JR0799 


TDM 

LV+14 

SET SORTS 


JR0800 


TMD 

LC+16 



JR0801 


TDM 

LV+16 

SET N2 


JR0802 


tma 

N2 



JR0803 


TMQ 

CNST 

^ l/l#>**i 


aR0804 


JAEQ 

SSlB 



JR0805 

SSI 

TMD 

Y27 



JR0806 


TDXkC 

>4X 

LV+16f4X N2 


JR0807 


TDXRC 

1H>5X 

LV+13>5X SORTA 


JR0808 


JMP 

BSQ 

BRING STORE QUANTITY 

O 

JR0809 

SSI A 

TMD 

Y19 


JR0810 


TDXkC 

*4X 

LV+14>4X SORTS 


JR0811 


JMP 

BSG 

BRING STORE GROUP 


JR0812 


JMP 

SS4A 



JR0813 

SSlB 

TMA 

Ml 



JR0814 


JAZ 

SS3 



JR0815 


TMD 

LC+14 



JR0816 


Jmp 

B 

BRING ON SORTS 


JR0817 


TMD 

PTABL 

END CODE 


JR0818 


JAED 

SS4 



JR0819 


TIXZ 

14»4X 

NO 


JR0820 


JMP 

NBV 

NEXT BRING ON SORTB 


JR0821 


TMD 

Y27 



JR0822 


TDXRC 

1H*5X 

LV+13#5X SORTA 


JR0823 


JMP 

SSIA 



JR0824 

SS3 

TIXZ 

14>4X 



JR0825 


JMP 

NBV 

NEXT BRING ON SORTS 


JR0826 


TMD 

Y27 



JR0827 


TDXRC 

1H>5X 

LV+13^5X SORTA 


JR0828 


JMP 

SS1A+2H 



JR0829 

SS4 

TMD 

Y27 



JR0830 


TDXLC 

>4X 

LV+16#4X N2 


JR0831 


TDXRC 

IHiSX 

LV+13+5X SORTA 


JR0832 


JMP 

BSQ 

BRING STORE QUANTITY 


JR0833 

SS4A 

Jmp 

$LW-1H 

END CODE SORTA 

O 

JR0834 


TMD 

Y28 


JR0835 


TDXLC 

>4X 

SORTA|4X 

JR0836 


TDXRC 

iH>5X 

SORTO>5X 


JR0837 


JMP 

BLOCK 

TRANSFER DATA TABLE 


JR0838 

SORTX 

JMP 

(P) 

EXIT FROM SORT 


JRb839 

YBG 

TMD 

PTABL+3 

ASTER ICK 




4. 

JR0840 


TDM 

Ti 

PRESENT CHARACTER 

' 

JR0841 


TMD 

LV+13 



JR0642 


jmp 

S ■ 

STORE IN SORTA 


JR0843 


TIXZ 

13»5X 



JR0844 


JMP 

NSV 

NEXT STORE ON SORTA 


JR0845 


TMD 

Lc+i9 



JR0846 


TDM 

LV+19 

SET T2 


JR0847 


TMD 

Y20 



JR0848 


TDXLC 

*4X 

LV+19*4X T2 


JR0849 


TDXRC 

1H*5X 

LV+13>5X SORTA 


Jr6850 


JMP 

BSQ 

BRING STORE QUANTITY 


JR0851 


TMD 

LV+IZ 



JR0852 


JMP 

B 

bring ON SORtO 


JR0853 


TMD 

PTABL44 

$ 


Jr6854 


JAED 

GAT 



JR0855 


Jmp 

$TS8 

NO 


JR0856 

GAT 

TMD 

Y21 



JR0857 


TDXLC 

i4X 

LV+12#4X SORTO 


JR0858 


TDXRC 

1H»5X 

LV-t-13i5X SORtA 


JR0859 


JMP 

BSQ 

BRING STORE QUANtiTY 


JR0860 


JMP 

BSQ 

BRING STORE QUANTITY 


JR0861 


JMP 

STS 8 



JR0862 


page 




JR0863 

GATHER 

TJM 

GATHX 

SUM identical TERMS 


JR0864 


TMD 

LC+12 



JR0865 


TDM 

LV4i2 

SET SORTO 


JR0866 


TMD 

LC+13 



JR0867 


TDM 

LV+i3 

sGt SORTA 


JR0868 


TMD 

LC4i4 



JR0869 


TDM 

LV4-i4 

SET SORTB 

LJ 

JRO870 


TMD 

LC4-i5 



JR0871 


TDM 

LV+IS 

SET N1 


JR0872 


TMD 

Lc+16 



JRC)873 


TDM 

L\/+16 

SET N2 


JR0874 


TMD 

LC+24 



JR0875 


TDM 

LV+24 

SET MULTC 


JR0876 


TMD 

LC^25 



JR0877 


TDM 

LV4-25 

SET S3 


JR6878 


TMD 

LC+28 



JR0879 


TDM 

LV+28 

SET S4 


JR0880 


TMD 

LV+12 



JR0881 


Jmp 

B 

BRING ON SORTO 


Jr6882 


TMD 

ptabL 

END CODE 


JR0883 


JAED 

gathx- 

TO EXIT 


Jr6884 


TMQ 

CMST+4 

0/12 


JR0885 


JAGQ 

tPl+2H 



JR0886 


Jmp 

GAtH6A 



JR0887 


TMD 

CNST 

NO 


JR0888 


TDM 

Mi 

1 /1 • « • • • 


JR0889 


JMP 

GATH6+2H 



JR0890 

GATH6A 

TMD- 

Y29 



JR0891 


TDXLC 

#4X 

LV+12#4X SORTO 


JR0892 


TDXRC 

1H»5X 

LV+15»5X N1 


JR0893 


JMP 

BSQ 

bring STORE QUANTITY 


JR0894 


TMD 

LV+12 


o 

JR0895 


Jmp 

B 

BRING ON SORTO 


JR0896 


TMD 

PTABL*f3 

ASTERICK 


JR0897 


JAED 

GATH6B 



JR0898 


JMP 

GATH6 

NO 


JR0899 

GATH6B 

TIXZ 

i2>4X 





Jr6900 


Jmp 

NBV 

NEXT BRING ON SORTO 

JR0901 

GATH6 

TIXZ 

15>5X 


JR0902 


JMP 

SLWV 

END CODE N1 

JR0903 


TMD 

Lc+13 


JR0904 


TDXLC 

#7X 

S0RTA>7X 

JR0905 

L 

RPTA 

20 


JR0906 


CM 

i»7X 


JR0907 


TMD 

Y21 


JR0908 


TDXLC 

*4X 

LV+12»4X SORTO 

JR0909 


TDXRC 

lHf5X 

LV+13^5X SORTA 

JR0910 


JMP 

BSG 

BRING STORE GROUP 

JR0911 


JMP 

SLW-IH 

END CODE SORTA 

JR0912 

GATHl 

TMD 

LV+24 


JR0913 


TDM 

LW+l 

SAVE CONTENTS OF MULTC 

JR0914 


JMP 

B 

BRING ON MULTC 

JR0915 


TMD 

PTABL 

END CODE 

JR0916 


JAED 

GATH4A 


JR0917 


TMD 

LV4-28 

NO 

JR0918 


JMP 

S 

STORE IN S4 

JR0919 


TIXZ 

24»4X 


JR0920 


JMP 

NBV 

NEXT BRING ON MULTC 

JR0921 


TMD 

LV+24 


JR0922 


JMP 

B 

BRING ON MULTC 

JR0923 


TMQ 

GNST+4 

0/12 

JR0924 


JAGQ 

(P)+2H 


jRd925 


JMP 

YDA+IH 


JR0926 


TMD 

CMST 

NO 

JRd927 


TDM 

N2 

1 /1 • « ♦ * a 

JR0928 

YDA 

JMP 

YDA2+2H 


JR0929 


TMD 

Y30 


JR0930 


TDXLC 

>4X 

LV+24>4X MULTC 

JR0931 


TDXRC 

1H»5X 

LV+16*5X N2 

JR0932 


JMP 

BSQ 

BRING STORE QUANTITY 

JR0933 


TMD 

LV+24 


JR0934 


JMP 

B 

BRING ON MULTC 

JR0935 


TMD 

PTABL+3 

ASTERICK 

JR0936 


JAED 

YDAl 


JR0937 


Jmp 

YDA2 

NO 

JR6938 

YDAl 

TIXZ 

24>4X 


JR0939 


JMP 

NBV 

NEXT BRING ON MULTC 

JR0940 

YDA2 

TIXZ 

16)5X 


JR0941 


JMP 

SLWV 

END CODE N2 

JR0942 


TMD 

LC*M4 


JR0943 


TDXLC 

#7X 

S0RtB#7X 

JR0944 

L 

RPTA 

20 


JR0945 


CM' 

i»7X 


JR0946 


TMD 

Y31 


JR0947 


TDXLC 

#4X 

LV+24#4X MULTC 

JR0948 


TDXRC 

1H*5X 

LV+14>5X SORTB 

JR0949 


JMP 

BSG 

BRING STORE GROUP 

JR0950 


JMP 

SLW-IH 


JR0951 

YDB 

TMD 

XWRD 


JR0952 


TDXLC 

I2X 

SORTA-1 

JR0953 


TDXRC 

1H^3X 

SORTB 

JR0954 

YDBl 

TMD 

XWRD-fl 

S0RTA+l9iGATH7 

JR0955 


AIXJ 

lf2X 


JR0956 


Jmp 

GATH2 

EQUAL GROUP JUMP 

JR0957 

GATH7 

TMA 

♦ 2X 


JR0958 


TMQ 

^3X 


JR0959 


JAEQ 

YDBl 





> 

Jr6965 


TMD 

Lc-i-14 

SET SORTB 

* 

JR0961 


TDM 

LV4-14 


JR0962 


TMD 

Lc+16 



JR0963 


TDM 

L\/416 

set N2 

G 

JR0964 


TMD 

LC+28 



JR0965 


TDM 

LV+28 

SET S4 


JR0966 


Jmp 

GATHl 



JR0967 

GATH2 

TMD 

LV+24 



JR0968 


JMP 

B 

BRING ON MULTC 


JR0969 


TlXZ 

24#4X 



JR0970 


JMP 

NBV 

NEXT BRING ON MULTC 


JR0971 


TMA 

Tl 



JR0972 


TMD 

PTABL 

END CODE 


JR0973 


JAED 

Ydc 



JR0974 


TMD 

LW+1 

NO 


JR0975 


JMP 

S 

STORE IN MULtC 


JR0976 


TTXZ 

1>5X 



JR0977 


Jmp 

NSW 

next STORE ON MULTC 


JR0978 


Jmp 

GATH2 



JR0979 

YDC 

JMP 

NUMAD 

ADD FRACTIONS 


JR0980 


TMD 

LC +16 



JR0981 


TDM 

LV+16 

SET N2 


JR0982 


TMD 

LG+28 



JR0983 


TDM 

LV-1^28 

SET S4 


JR0984 


Jmp 

GATH4 



JR0985 

GAtH4A 

TMD 

Y32 



JR0986 


tdxLc 

f4X 

Nly4X 


JR0987 


TDXRC 

1H*5X 

N2>5X 


JR0988 


JMP 

BLOCK 

transfer DATA TABLE 

o 

JR0989 


TMD 

LC+25 


JR0996 


TDM 

LV*f28 

SET S3 TO S4 


JR0991 

GATH 4 

TMD 

Lc+l3 



JR0992 


TDM 

LV413 

SET SORTA 


JR0993 


TMD' 

LV+16 



JR0994 


Jmp 

B • 

BRING ON N2 


Jr6995 


JAz 

GATH3 



JR0996 

YDD 

TMA 

CNST 

NOjl/1**.*, 


JR0997 


TMD 

N2 



JR0998 


JAED 

YDE 



JR0999 


TMD- 

Y33 



JRIOOO 


tdxLc 

»4X 

LV+28»4X S4 


JRlOOl 


TDXRCi 

1H#5X 

LW+1>5X MULTC 


jRi002 


Jmp 

BSQ 

BRING STORE QUANTITY 


JR1003 


TMD 

Y27 



JR1004 


TDXLC 

#4X 

LV+16>4X N2 


JR1005 


JMP 

BSQ 

BRING STORE QUANTITY 


JR1006 


TMD 

LC+13 



JR1007 


Jmp 

B 

BRING ON SORTA 


JR1008 


TMD 

PTABL 

END CODE 


JR1009 


JAED 

GAfH3 



JRlOlO 


TMD 

PTABL+3 

N0»ASTERICK 


JR1011 


TDM 

Tl 

PRESENT CHARACTER 


JR1012 


TMD 

LW4-1 

STORE IN MULTC 


JR1013 


JMP 

S 

o 

jRl0i4 


TIXZ 

I>5X 


JR 1015 


JMP 

NSW 

NEXT STORE ON MULTC 

JR1016 


Jmp 

GATH5 



JR1017 

YDE 

TMD 

LC+13 



JR1018 


JMP 

B 

BRING ON SORTA 


JR1019 


TMD 

PTABL 

END CODE 



JR 1 C )26 


JAED 

6ATH5A 


JR1021 


TMD 

Y33 

NO 

JR1022 


TDXLC 

>4X 

LV+28»4X S4 

Jr1023 


TDXRC 

1Hj5X 

LW+1*5X MULTC 

JR1024 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1025 

GATH5 

TMD 

Y27 


JR1026 


TDXRC 

1H#4X 

LV-H3»4X SORTA 

JR1027 


JMP 

BSG 

BRING STORE GROUP 

JR1028 


JMP 

GATH3 


JR1029 

6ATH5A 

TMD- 

Y33 


JR1030 


TDXLC 

>4X 

LV+28>4X S4 

JR1031 


TDXRC 

1H#5X 

LW+1,5X MULTC 

JR1032 


JMP 

BSQ 

BRING STORE QUANTITY 

JRIO 33 


TMD 

Y27 


JRIO 34 


TDXLC 

>4X 

LV+16*4X N2 

JRIO 35 


JMP 

BSQ 

BRING STORE QUANTITY 

JRIO 36 

GATH3 

TIXZ 

1>5X 


JRIO 37 


JMP 

SLWW 

END CODE MULTC 

JR1038 

GATHX 

JMP 

(P) 

EXIT GATHER 

JRIO 39 


PAGE 



JR1040 

FACTOR 

TJM 

FACX 

FACTOR B FROM A 

JR1041 


JMP 

OPEN 

REMOVE parentheses 

JR1042 


TMD' 

Lc+lo 


JRIO 43 


TDM 

Lv+io 

SET MP 

JRIO 44 


TMD 

Lc +35 


JRIO 45 


TDM 

Lv +35 

SET PROG 

JR1046 


TIXZ 

35>4X 


JRIO 47 


JMP 

NBV- 

NEXT BRING ON PROG 

JRIO 48 


JMP 

NBV-ZH 

NB 

JR 1049 


JMP 

NBV-^2H 

NB 

JR1050 


JMP 

NBV-2H 

NB 

JRIO 5 I 


TMD 

Lc+i 


JR1052 


TDM 

LV+i 

SET FOT 

JRIO 53 


TMD 

Y34 


JR1054 


TDXLC 

♦ 4X 

LV+35»4X PROG 

JRIO 55 


TDXRC 

lHi5X 

LV+1*5X FOT 

JR1056 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1057 

FCTRll 

TMD 

Lc+i 


JR1058 


TDM 

LV+1 

SET FOT 

JRIO 59 


TMD 

LC+2 


JR1060 


TDM 

LV+2 

SET OPENM 

JR1061 


TMD 

LG-1'3 


JR1062 


TDM 

LV-f-3 

SET FI 

JR1063 


TMD 

LC-f4 


JR1064 


TDM 

LV+4 

SET F2 

JR1065 


TMD 

LC+5 


JR1066 


TDM 

LV-f5 

SET El 

JR1067 


TMD 

LG+8 


JR1068 


TDM 

LV*f8 

SET MY 

JR1069 


TMD 

LC-f*9 


JR1070 


TDM 

LV-^9 

SET MN 

JR1071 


CM 

FI 


JR1072 


CM 

Fl+1 


JR1073 


CM 

F2 


JRI074 


CM 

F2-I-1 


JR1075 


CM 

EFFl 


JR1076 


TMD 

LV-t-35 


JR1077 


JMP 

B 

BRING ON PROG 

JR1078 


TlXZ 

35#4X 


JR1079 


JMP 

NBV 

NEXT BRING ON PROG 



JRIOSO 


TMA 

Tl 

ptabL 


JR1081 


TMD 

END CODE 

JR1082 


JAED 

fctRE 


JR1683 


TMD 

L\/+35 

NO 

JR1084 


JMP 

B 

BRING ON PROG 

JR1085 


TMD 

PTABL+7 

comma 

JR1086 


Jaed 

FCTR20 


JR1687 


TMD 

Lc+3 

NO 

JR1088 


TDM 

LV+3 

SET FI 

JR1089 


tMd 

Y39 

LV+35i4X PROG 

JR1090 


TDXLC 

5 4X 

JR1091 


TDXRC 

1H>5X 

LV-f3>5X FI 

JR1092 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1093 


Jmp 

SLW-IH 

END CODE Fl 

JR1094 


TMD 

LV-<*35 


JR1095 


JMP 

B 

BRING ON PROG 

JRIO 96 


TMD 

PTABL+4 

$ 

JR1097 


Jaed 

FC2 


JR1098 


TMD 

CNST+2 

1B47 

JR1099 


TDM 

Tl 


JRIIOO 


tdm 

effi 


JRIIOI 


TMD 

LV4-5 


JR1102 


JMP 

S 

STORE IN El 

JR1103 


TIXZ 

5*5X 


JR1104 


JMP 

NSV 

next STORE ON El 

JRI105 

FCl 

JMP 

SLW-IH 


jRli06 


TMD- 

Y40 


JR1107 


TDXLC 

>4X 

E1>4X 

JRiioa 


TDXRC 

IH^SX 

EElfSX 

JR1109 


JMP 

BLOCK 

TRANSFER data TABLE 

JRIIIO 


TMD 

LC45 


JRiiii 


TDXLC 

i3X 

El 

JRII 12 


JMP 

Rt 

BCD TO BIN 

JR1113 


TMD 

RTW+1 


JR1114 


TDM 

El 


JR1115 


JMP 

FACX+lH 


jRlil6 

Fc:2 

TIXZ 

35 5 4X 


JR11it 


Jmp 

NBV 

NEXt BRING ON PROG 

jRliis 


TMD 

Lc+5 


jR 111:9 


TDM 

LV+5 

SET El 

JR1120 

FC2A 

TMD 

L\/135 


Jr 1121 


Jmp 

B 

bring ON PROG 

JR1122 


TMD 

PTABL+8 


JR1123 


Jaed 

FCi 


JR1124 


TMD 

PTABL47 

comma 

JR1125 


jaed 

FCi 


JR1126 


TMD 

LV+5 

NO 

JR1127 


JMP 

S 

STORE IN El 

JR1128 


Tixz 

5>5X 


JRli29 


JMP 

NSV 

NEXT STORE ON El 

JR1130 


Tixz 

35>4X 


JR1131 


JMP 

NBV 

NEXT BRING ON PROG 

JR1132 


JMP 

FC2A 


JR 113 3 

FCTRE 

TMD 

LV+2 


JR1134 


JMP 

B 

BRING ON OPENM 

JR1135 


TMD 

PTABL 

END CODE 

JR1136 


JAED 

(P)+5H 


JRII 37 


TMD- 

Yil2 


JR1138 


TDXLC 

5 4X 

LV+2>4X OPENM 

JR1139 


TDXRC 

IHi 5X 

LV+10*5X MP 



•■i 

JR1140 


JMP 

BSE 

BRING StORE EXPRESSION 

* 

JR1141 

RCTEE 

TIXZ 

10j5X 



JR1142 


Jmp 

SLWV 

END CODE MP 


JR1143 


TMD 

LC+10 


c 

JR1144 


TDM 

LV+10 

SET MP 


JR1145 


Jmp 

B 

BRING ON MP 


JR1146 


TMD 

PTABL 

END CODE 


JR1147 


JAED 

FACX 

TO EXIT 


JR1148 


TMD 

Y41 

NO 


JR1149 


TDXLG 

♦ 4X 

MP»4X 


■ JR1150 


TDXRC 

IHiSX 

OPENM^5X 


JR1151 


JMP 

BLOCK 

TRANSFER DATA TABLE 


JR1152 

FACX 

JMP 

(P) 

EXIT FACTOR 


JR1153 


TMD 

LC+7 



JR1154 


TDM 

LV+7 

SET G 


jRil55 


TMD 

LV+2 



JR1156 


JMP 

B- 

BRING ON OPENM 


jRlt57 


Tixz 

2>4X 



JR 115 8 


JMP 

NBV 

NEXT BRING ON OPENM 


JR1159 


TMD 

LV+7 



JR1160 


JMP 

S 

STORE IN G 


JR1161 


TIXZ 

7j5X 



JR1162 


JMP 

NSV 

next STORE ON G 


JR1163 

ECTR14 

TMD 

LV+2 



jRtl64 


JMP 

B 

BRING ON OPENM 


JR1165 


TMD 

PTABL 

END CODE 


JR1166 


JAED 

FCTR3 



JR1167 


TMD 

PTABL+1 

+ 


JR1168 


JAED 

FCTR3 



JR1169 


TMD 

PTABL+2 • 

“ 


JR1170 


JAED 

FCTR3 



JR 1171 


TMD 

LC+4 

NO 


JR1172 


TDM 

LV+4 

SET F2 


JR1173 


TMD 

Y42 



JR1174 


TDXLC 

#4X 

LV+2»4X OPENM 


JR1175 


TDXRC 

1H»5X 

LV+495X F2 


JR1176 


JMP 

BSQ 

BRING STORE QUANTITY 


JR1177 


JMP 

SLW-IH 

END CODE F2 


JR1178 


TMD 

LC+4 



JR1179 


TDM 

LV+4 

SET F2 


JR1180 

FC3 

TMA 

FI 



JR1181 


TMD 

F2 



JR1182 


JAED 

(P)+2H 



JR1183 


JMP 

FCTR6 



JR1184 


TMA 

Fl+1 



JR1185 


TMD 

F2+1 



JR1186 


JAED 

FCTR2 



JR1187 

FCTR6 

TMD 

Y43 



JR1188 


TDXLC 

>4X 

LV+4j4X F2 


JR 118 9 


TDXRC 

lHj»5X 

LV+7»5X G 


JR1190 


JMP 

BSQ 

BRING STORE QUANTITY 


JR1191 


CM 

F2 



JR1192 


CM 

F2+1 



JR1193 


JMP 

FCTR14 



JR1194 

FCTR3 

TIXZ 

7)5X 


C ) 

JR 119 5 


JMP 

sLwv 

END CODE G 


JR1196 


TMD 

LC+7 



JR1197 


TDM 

LV+7 

SET G 


JR1198 


JMP 

B 

BRING ON G 


JR1199 


TIXZ 

7j4X 




JR1200 


JMP 

NBV 

NEXT BRING ON G 

JR1201 


TMt) 

L\/+9 


JR1202 


JMP 

S 

STORE IN MN 

JR1203 


Tixz 

9j5X 


JR1204 


JMP 

NSV 

NEXT store on MN 

JR1205 


JMP 

BSG 

BRING STORE GROUP 

JR1206 

FCTR13 

TMD 

LV42 


JR1207 


JMP 

B 

BRING ON OPENM 

JR1208 


TMD 

PTABL 

END CODE 

JR1209 


JAED 

FC4 


JR1210 


JMP 

FACX+lH 


JR1211 

FC4 

TMA 

LV+8 

ANYTHING STORED IN MY 

JR1212 


TMD 

LC’FB 


JR1213 


JAED 

FCTRll 

NO 

JR1214 


TIXZ 

8>5X 

YES 

JR1215 


Jmp 

SLWV 

END CODE MY 

JR1216 


AiXO 

1>5X 


JR1217 


Jmp 

sLW-iH 

END CODE MN 

jRi218 


JMP 

FCTR9 


JR1219 

FCTR2 

CM 

E2 


JR1220 


TMD 

Lc+6 


jRi22l 


TDM 

LV+6 

SET E2 

JR1222 


TMD 

LV+2 


jRi223 


TDM 

LW+2 

SAVE LOC OF OPENM 

JR1224 


JMP 

B 

BRING ON OPENM 

JR1225 


TMD 

PtABL+4 

$ 

JR1226 


JAED 

FC5 


JR1227 


TMD 

CNST+2 

N051B47 

JR1228 


TDM 

Ti 

PRESENT CHARACTER 

JR1229 


TMD 

LV+O 


JR1230 


JMP 

S 

STORE IN E2 

JR1231 


Tixz 

6 5 5X 


JR1232 


JMP 

NSV 

NEXT STORE ON E2 

JR1233 


JMP 

FC6 


JR1234 

FC5 

Tixz 

2>4X 


JR1235 


JMP 

NBV 

NEXT BRING ON OPENM 

JR1236 


TMD 

Y45 


JR1237 


TDXLC 

#4X 

LV+2>4X OPENM 

Jr12 38 


TDXRC 

iHi5X 

LV+6>5X E2 

Jr 1:2 3 9 


JMP 

BSQ 

bring STORE quantity 

Jr1240 

FC6 

Jmp 

SLW-IH 

END CODE E2 

JR1241 


TMD 

Y46 


JR1242 


tdxLc 

♦ 4X 

E2?4X 

JR1243 


TDXRC 

1H>5X 

EE2>5X 

JR1244 


JMP 

block 

transfer DATA TABLE 

JR1245 


TMD 

LC+6 


JR1246 


tdxLc 

93X 

E2 

JR1247 


Jmp 

ry 

bCd to bin 

jRi248 


TMD 

Rfw+i 


JR1249 


TDM 

E2 


JR1250 


TMA 

Ei 


jR125i 


tmd. 

E2 


JR1252 


JAED 

FCTR21 


JR1253 


JAGD 

FCi5 


JR1254 


TMD 

Y43 


JR1255 


TDXLC 

54X 

LV+4>4X F2 

JR1256 


TDXRC 

1H^5X 

LV+TsSX G 

JR1257 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1258 


TMD 

Y47 

G/CSM > R TW+I-G/AM * EE2 

JR1259 


JMP 

EXPAD 

EXPONENT subtract 



Jr1266 


tMb 

Lc+18 


Jr1261 


TDM 

LV+18 

SET EE2 

JR1262 


Jmp 

B 

BRING ON EE2 

JR1263 


Tixz 

18)4X 


JR1264 


JMP 

NBV 

NEXT BRING ON EE2 

JR1265 


TMA 

T1 


JR1266 


TMD 

CNST+2 

1B47 

JR1267 


JAED 

Fell 


JR1268 

FC8 

TMD 

PTABL+4 

N0?$ 

JR1269 


TDM 

Tl 

PRESENT character 

JR1270 


TMD 

LV+7 


JR1271 


JMP 

S 

STORE IN G 

JR1272 


TlXZ 

7*5X 


JR1273 


JMP 

NSV 

NEXT STORE ON G 

JR1274 


TMD 

LC4-18 


JR1275 


TDM 

LV+18 

SET EE2 

JR1276 


TMD 

Y48 


JR1277 


TDXLC 

>4X 

LV+18»4X EE2 

JR1278 


TDXRC 

1H^5X 

LV+7>5X G 

JR1279 


Jmp 

BSQ 

BRING STORE QUANTITY 

JR1286 

FC9 

tmd 

, Y49 


JR1281 


TDXLC 

»4X 

LV+2j4X OPENM 

JR1282 


TDXRC 

1H*5X 

LV+7>5X G 

JR1283 


JMP 

BSG 

BRING STORE GROUP 

JR1284 

FCIO 

Jmp 

SLW-IH 

END CODE G 

JR1285 


TMD 

LC-H7 


jRi286 


TDM 

LV+7 

SET G 

JR1287 


JMP 

B- 

BRING ON G 

jRi288 


TIXZ 

7f4X 


JR1289 


JMP 

NBV 

NEXT BRING ON G 

JR1290 


tmd 

LV+8 


JR1291 


JMP 

S 

STORE IN MY 

JR1292 


TIXZ 

8*5X 


JR1293 


JMP 

NSV 

NEXT STORE ON MY 

JR1294 


JMP 

BSG 

BRING STORE GROUP 

JR1295 


CM 

F2 


JR1296 


CM 

F2+1 


JR1297 


CM 

E2 


JR1298 


TMD 

LC+3 


JR1299 


TDM 

LV+3 

SET FI 

JR1300 


TMD 

LC+4 


JR1301 


TDM 

LV+4 

SET F2 

JR1302 


TMD 

LC+5 


JR 1.3 03 


TDM 

LV+5 

SET El 

JR1304 


TMD 

LC+6 


JR1305 


TDM 

LV4-6 

SET E2 

JR1306 


JMP 

FCTR13 


JR1307 

Fell 

TMD 

LV+18 


JR1308 


JMP 

B 

BRING ON EE2 

JR1309 


TMD 

PTABL 

END CODE 

JR1310 


JAED 

FC9 


JR 1311 


JMP 

FC8 

NO 

JR1312 

FCTR21 

TIXZ 

7»4X 


JR1313 


Jmp 

DECKV 

LAST BRING ON G 

JR1314 


JMP 

B 

BRING ON G 

JR1315 


TMD 

PTABL+3 

AST ERICK 

JR1316 


JAED 

FC9 


JR13T7 


TIXZ 

7i4X 

NO 

JRIBIS 


JMP 

NBV 

NEXT BRING ON G 

JR 1319 


TMD 

LV+2 




JR1320 


Jmp 

B 

jRi32l 


TMD 

PTABL+3 

JR1322 


Jaed 

FC12 

JR1323 


TMD 

Y44 

JR1324 


TDM 

LW+3 

JR1325 


TMD 

Y50 

JR1326 


TDXLC 

>4X 

JR1327 


TDXRC 

iHi5X 

JR1328 


JMP 

BSQ 

JR1329 


Jmp 

FClb 

JR1330 

EC12 

TIXZ 

2>4X 

JR1331 


JMP 

NBV 

JR 13 3 2 


JMP 

EC9 

JR1333 

FCTR20 

TMD 

Y5i 

JR1334 


TDXLC 

*4X 

JR1335 


TDXRC 

1H>5X 

JR1336 


JMP 

BLOCK 

JR1337 


TMD 

LC+3 

JR1338 


TDM 

LV+3 

JR1339 


Tixz 

3>5X 

jRl340 


JMP 

SLWV 

JR1341 

FCTR9 

TMD 

LC4-8 

JR1342 


TDM 

Lv+8 

JR1343 


TMD 

LV435 

jRi344 


JMP 

B 

JR1345 


TMD 

PTABL+7 

JR1346 


JaEd 

FCl3 

JR1347 


JMP 

FCTR23 

Jr1348 

FCi3 

TIXZ 

35y4X 

jRi349 


JMP 

NBV 

Jr1356 


TMD , 

Y34 

JR1351 


TDXLG 

i4X 

JR1352 


TDXRC 

lHi5X 

JRT353 


Jmp 

BSQ 

JR1354 


Jmp 

SLW-IH 

jRr355 


tMd 

Lc+E 

JR1356 


TDM 

LWW 

Jr135T 


JMP 

StOT 

Jr1358 


JMP 

FC16 

jRr359 

Fci4 

TMD 

LC+8 

JR1360 


TDM 

LV48 

JR1361 


TMD 

Lc41 

JR1362 


TDM 

LV+1 

JR1363 


TMD, 

Y52 

JR1364 


TDXLC 

#4X 

JR1365 


TDXRC ' 

lHj5X 

jRi366 


JMP 

BSQ 

JR1367 


JMP 

SLW-IH 

JR1368 


TMD 

LC4^8 

JR1369 


TDM 

LV+8 

JR1370 

FCTR23 

TMD 

PTABL+1 

JR1371 


TDM 

T1 

JR1372 


TMD 

LV+10 

JR1373 


JMP 

S 

JR1374 


TIXZ 

o 

X 

JR1375 


JMP 

NSV 

JR1376 


TMD 

LC+3 ' 

JR1377 


TDM 

LV+3 

JR1378 


JMP 

B 

JR1379 


TMD 

ptabl 


BRING ON OPENM 
ASTERICK 

NO»CNST>Ti5 
SET 1/I« « « »• 

LW+3*4X 1/1 
L\/+7 i 5X G 

BRING STORE QUANTITY 


NEXT BRING ON OPENM 


OPENM>4X 
MY.5X 

TRANSFER DATA TABLE 
SET FI 
END CODE FI 
SET MY 

BRING ON PROG 
COMMA 

NO 

NEXT BRING ON PROG 

LV+35>4X PROG 

LV+iiSX EOT 

BRING STORE QUANTITY 
END CODE FOf 

SET LOC OF mV 

STORE EXPRESSION ON TAPE 


SET MY 

SET FOT 

LV+154X FOT 
LV+8>5X MY 

BRING STORE QUANTITY 
END CODE MY 

SET MY 

PRESENT CHARACTER 

STORE IN MP 

NEXT STORE ON MP 

SET FI 
bring ON FI 
END CODE 



JR13B0 


JAed 

FC18 


JR1381 


TMD 

PTABL+5 

( 

JR1382 


TDM 

T1 


JR1383 


TMD 

LV+10 


JR1384 


JMP 

3 

STORE IN MP 

JR1385 


Jmp 

NSV-2H 

NEXT STORE IN MP 

JR1386 


TMD 

Y53 

NO 

JR1387 


TDXLC 

#4X 

LV+8>4X MY 

JR1388 


TDXRC 

1H#5X 

LV+10*5X MP 

JR1389 


TMA 

MY 


JR1390 


SLA 

6 


JR1391 


TMD 

Y113 

A/1/1 »»®«0S 

JR1392 


JAED 

FFCT2 


jRi393 


JMP 

BSE 

BRING STORE EXPRESSION 

JR1394 


TMD 

PTABL*f6 

) 

JR1395 


TDM 

T1 


JR1396 


TMD 

LV+lO 


JR1397 


JMP 

S 

STORE IN MP 

JR1398 


JMP 

NSV-2H 

NEXT STORE IN MP 

JR1399 


TMD 

PTABL+3 

ASTERICK 

JR1400 


TDM 

Tl 

PRESENT character 

JR1401 


TMD 

LV+10 


JR1402 


JMP 

S 

STORE IN MP 

JR1403 


Jmp 

NSV-EH 

NEXT STORE ON MP 

JR1404 

RfgtI 

TMD 

Y36 


JR1405 


TDXLC 

»4X 

LV+3>4X FI 

jRi406 


JMP 

B$Q 

BRING STORE QUANTITY 

JR1407 


TMA 

EFFl 


JR1408 


TMD 

CNST+2 

1B47 

JR1409 


JAED 

FCTRIO 


JR1410 


TMD 

ptabl+4 

$ 

JR1411 


TDM 

Tl 

PRESENT CHARACTER 

JR1412 


TMD 

LV+lD 


JR1413 


JMP 

S 

STORE IN MP 

JR1414 


JMP 

NSV-‘2H 

NEXT STORE ON MP 

JR1415 


TMD 

LC417 


JR1416 


TDM 

LV417 

SET EEl 

JR1417 


TMD 

Y23 


JR1418 


TDXRC 

1H4 4X 

LV+17>4X EEl 

JR1419 


JMP 

BSQ 

BRING STORE QUANTITY 

jRi420 

RCtRiO 

TMD 

Y54 


JR1421 


TDXLC 

>4X 

MN»4X 

JR1422 


TDXRC 

1H#5X 

OPENM»5X 

JR1423 


JMP 

BLOCK 

transfer data table 

JR1424 


JMP 

FCTRll 


JR1425 

FC15 

TMA 

E2 


JR1426 


TMD 

CNST*f2 

1B47 

JR1427 


JAED 

FCTR6 


JR1428 


TMD 

Y43 


JR1429 


TDXLC 

f4X 

EV+4>4X F2 

JR1430 


TDXRC 

1H,5X 

LV+7»5X G 

JR1431 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1432 


TMD 

PTABL+4 

$ 

JR1433 


TDM 

Tl 

PRESENT character 

JR1434 


TMD 

LV4-7 


JR1435 


JMP 

S 

STORE IN G 

JR1436 


Jmp 

NSV-‘2H 

NEXT STORE ON G 

JR1437 


TMD 

LC418 


JR1438 


TDM 

LV+18 

SET EE2 

JR1439 


TMD 

Y48 




V 





JR1440 


TDXLC 

*4X 

LV+18i4X EE2 

JR1441 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1442 


CM 

F2 


JR1443 


CM 

F2+1 


JR1444 


JMP 

FCfRl4 


JR1445 

FCi6 

TMD 

Y54 


JR1446 


tdxLc 

*4X 

MN>4X 

JR1447 


TDXRC 

1H^5X 

0PENMi5X 

JR1448 


JMP 

BLOCK 

TRANSFER DATA TABLE 

JRI449 


TMD 

Lc+9 


JR1450 


TDM 

LV+9 

SET MN 

JR1451 


TMD 

Lc+8 


JR1452 


TDM 

LV+8 

SET MY 

JR1453 


TMD 

Lc-fI 


jRi454 


TDM 

LV+l 

SET FOT 

JR1455 


TMD 

LV+8 


JR1456 


JMP 

B 

BRING ON MY 

JR1457 


TMD 

PTABL 

END CODE 

JR1458 


Jaed 

FCTRll 


JR1459 


TMD 

Y55 

NO 

JR1460 


TDXLC 

i4X 

LV+1>4X FOT 

jRl46l 


TDXRC 

iH>5X 

LV+9>5X MN 

JRI462 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1463 


TMD 

PTABL+9 

equate SYMBOL 

JR1464 


TDM 

Tl 

PRESENT character 

JR1465 


TMD 

LV+9 


JR1466 


JMP 

S 

STORE IN MN 

JR1467 


JMP 

NSV-SH 

NEXT STORE ON MN 

JR1468 


AIXO 

754X 

LV+8s4X MY 

jRi469 


JMP 

BSE 

BRING STORE EXPRESSION 

JR1470 


JMP 

SLW-IH 

END CODE MN 

jR147l 


TMD 

LC+9 


JR1472 


TDM 

LWW 

SET LOC OF MN 

JR1473 


JMP 

EDT 

PRINT EXPRESSION 

JR1474 


TMD 

Y54 


JR1475 


TDXRC 

1H>4X 

0PENM>4X 

JR1476 


TDXLC 

f 5X 

MN>5X 

JR1477 


JMP 

BLOCK 

TRANSFER DATA TABLE 

JR1478 


JMP 

FC14 


JR1479 

FGi8 

TMD 

Y53 


JR1480 


TDXLC 

>4X 

LV+8»4X MY 

JR1481 


TDXRC 

1H>5X 

LV+10j5X MP 

JR1482 


JMP 

BSE 

BRING STORE EXPRESSION 

JR1483 


JMP 

FCTEE 


JR1484 

FFCT2 

TMD 

LC+8 


JR1485 


JMP 

B 

BRING ON MY 

JR1486 


TMD 

LV+10 


JR1487 


JMP 

S 

STORE IN MP 

JR1488 


JMP 

NSV“2H 

NEXT STORE IN MP 

JR1489 


JMP 

FFCTl 


jRi490 


PAGE 



JR1491 

SUB ST 

TJM 

SBSTX 

SUBSTITUTE A INTO B 

JR1492 


TMD 

LC+1 


JR1493 


TDM 

LV+1 

SET FOT 

JR1494 


TMD 

LC+2 


JR1495 


TDM 

LV+2 

SET OPENM 

JR1496 


TMD 

LC+3 


JR1497 


TDM 

LV+3 

SET FI 

JR1498 


TMD 

LC+31 


JR1499 


TDM 

LV+31 

SET SUBSTB 



Jr1500 


tMD 

LC4*55 


jR150i 


TDM 

LV+35 

SET PROG 

JR1502 


TIXZ 

35*4X 


JR1503 


JMP 

NBV 

NEXT BRING ON PROG 

JR1504 


Jmp 

NB\/-2H 


JR1505 


JMP 

NBV-2H 


JR1506 


JMP 

NBV-2H 


JR1507 


TMD 

Y34 


JR1508 


TDXLC 

>4X 

LV+35*4X PROG 

JR 15 09 


TDXRC 

5X 

LV+I>5X EOT 

JR1510 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1511 

SBST4 

TMD 

LC-M 


JR1512 


TDM 

LV+1 

SET EOT 

JR1513 


TMD 

LV+35 


JR 1514 


JMP 

B 

BRING ON PROG 

JR1515 


TMD 

PTABL 

END CODE 

JR1516 

SBSTX 

JAED 

(P) 

EXIT SUBST 

JR1517 


CM 

EOT 

NO 

JR 1518 


CM 

FOT+1 


JR1519 


TIXZ 

35*4X 


JR1520 


JMP 

NBV 

NEXT BRING ON PROG 

JR1521 


TMD 

Y34 


JR1522 


TDXRC 

1H>5X 

LV+1,5X EOT 

JR1523 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1524 


JMP 

SLW-IH 

END CODE EOT 

JR1525 


TMD 

LC+30 


JR1526 


TDM 

Lww 

SET SUBSTA 

JR1527 


JMP 

BRET 

BRING EROM TAPE 

JR1528 

S8ST2 

TMD 

Lc+Bo 


JR1529 


TDM 

Lv+30 

SET SUBSTA 

JR1530 


TMD 

LC+3 


JR1531 


TDM 

LV+3 

SET El 

JR1532 


CM 

Ei 


JR1533 


CM 

El + 1 


JR1534 


TMD 

LV+2 


jRi535 


JMP 

B 

BRING ON OPENM 

JR15 36 


TMD 

PTABL 

END CODE 

JR1537 


JAED 

SBST3 


JR1538 


TMD 

Y35 

NO 

JR1539 


TDXLC 

>4X 

LV+2>4X OPENM 

JR1540 


TDXRC 

1H>5X 

LV+3>5X El 

JR1541 


JMP 

BSQ 

BRING store QUANTITY 

JR1542 


JMP 

SLW-IH 

END CODE El 

JR1543 


TMA 

El 


JR1544 


TMD 

EOT 


JR 15 45 


JAED 

(Pi+2H 


JR1546 


JMP 

YEA 


JR1547 


TMA 

El+l 


JR1548 


TMD 

EOt + 1 


JR1549 


JAED 

YEB 


JR1550 

YEA 

TMD 

LC+3 


JR1551 


TDM 

LV+3 

SET El 

JR 15 52 


TMD 

Y36 


JR1553 


TDXLC 

^4X 

LV+3>4X El 

JR1554 


TDXRC 

1H55X• 

LV+31>5X SUBSTB 

JR1555 


JMP 

BSQ 

BRING STORE QUANTITY 

JR1556 


JMP 

SBST2 

( 

JR1557 

YEB 

TMD 

PtABL+5 

JR1558 


TDM 

Tl 

PRESENT CHARACTER 

JR1559 


TMD 

LV-fSl 





■' 

s 

JR1560 

Jmp 

S 

STORE In SUBSTB 


Jr1561 

TlXZ 

31>5X 



JR1562 

JMP 

NSV 

NEXT STORE ON SUBSTB 


JR1563 

TMD 

LC+30 


u 

JR1564 

TDM 

Lv-<‘30 

SET SUBSTA 


JR1565 

TMD 

Y37 



JR1566 

TDXLC 

>4X 

L\/+30»4X SUBSTA 


JR1567 

TDXRC 

1H)5X 

LV-f31>5X SUBSTB 


jRi568 

JMP 

BSE 

BRING STORE EXPRESSION 


JR 1569 

TMD 

PTABL+6 

) 


JR1570 

TDM 

Tl 

PRESENT CHARACtER 


JR1571 

TMD 

LV+31 



JR1572 

JMP 

S 

STORE IN SUBSTB 


JR1573 

Jmp 

NSV-2H 

NEXT STORE ON SUBSTB 


JR1574 

Jmp 

SBST2 



JR1575 SBST3 

TIXZ 

31^5X 



jRi576 

Jmp 

SLWV 

END code SUBSTB 


JR1577 

Tmd 

Y38 



JR1578 

tdxLc 

j4X 

SUBSTB»4X 


Jr1579 

tdxrg 

iH,5X 

OPENM*5X 


jRisso 

Jmp 

BLOCK 

TRANSFER DATA TABLE 


Jr 1581 

TMD 

Lc+2 



JR1582 

TDM 

LV+2 

SET OPENM 


JR1583 

TMb 

LG+30 



JR1584 

TDM 

LV-f30 

SET SUBSTA 


JR1585 

TMD 

LC+3I 



JR1586 

TDM 

LV+31 

SET SUBSTB 


JR1587 

JMP 

SBST4 



JR1588 

PAGE 



o 

JR1589 LALGY 

TIJ 

SEARCH 

ALGEBRAIC PROCESSOR SANFORD 


JR1590 

TJM 

AL3 

SET UP TAPE SEARCH 


JR1591 

JMP 

AL1+2H 



JR1592 LALl 

TIJ 

LOCATE 

SET UP PROGRAM LOCATE 


JR1593 

TJM 

AL3 



JR1594 

rcoz 




JR1595 

TMA 

Y99 

USE NO»T15-USE LOC»T39 


JR1596 

JMP 

PIMT 



JR1597 

TMD 

LC+37 



JR1598 

TDM 

LV+37 

SET PROGB 


JR1599 

TMA 

USE+l 

USE 1 FOR SCRATCH TAPE 


JR 16.00 

JMP 

IN 

TAPE INITIALIZATION 


jRl60i 

JMP 

RWSCT 

REWIND SCRATCH TAPE 


JR1602 AL3 

JMP 

(P) 

search OR LOCATE 


JR1603 

TMD 

PTABL+1 

+ 


JR1604 

TDM 

DATA-2 

STORE 1ST BLK MARKER 


JR1605 

JMP 

WFD 

WRITE 1 BLK FORWARD 


JR1606 

TMD 

PTABL+2 

— 


JR1607 

TDM 

DATA-2 

STORE LAST BLK MARKER 


JR1608 

JMP 

WFD 

WRITE 1 BLK FORWARD 


JR1609 

JMP 

BSD 

backspace 1 BLK 


jRi6lO 

Jmp 

PAGE 

EJECT PAGE ON PRINTER 


JR1611 TEST 

TMD 

Y59 

TEST ON COMMAND ID 


JR 1612 

TDXLC 

>4X 

LV+37*4X 


JR1613 

JMP 

BI 

BRING IGNORE ON PROGB 


JR1614 

TMD 

PTABL+15 

E 

u 

JR1615 

JAED 

EQUATE 



JR 1616 

TMD 

PTABL+16 

I 


JR1617 

JAED 

INEQT 



JR 1618 

TMD 

PTABL+20 

B 


JR1619 

JAED 

bUg 





JR1626 


tMb 

PtABL+i2 

S 


Jr162I 


JAED 

SBST 



JR1622 


TMb 

PTABL+23 

F 


JR1623 


Jaed 

FCTR 


G 

JR1624 


TMb 

PTABL+11 

0 


jRi625 


JAED 

OPN 



JR1626 


TMD 

PTABL+18 

T 


JR1627 


JAED 

TRIG 



JR1628 


TMD 

PTABL+24 

p 


JR1629 


JAED 

PUNCH 



JR1630 


TMD 

PTABL+10 

D 


jRi63l 


JAED 

DONE 



JR1632 


TMD 

PTABL+17 

L 


JR1633 


JAED 

FINI 



JR1634 


JMP 

BF11*-4H 



JR1635 

EQUATE 

CM 

OPENM-1 



jRi636 


TMD 

LC+2 



JR1637 


TDM 

LV+2 

SET OPENM 


JR1638 


TMD 

LC+39 



JR1639 


TDM 

LV+39 

SET OPENM-2 


JR1640 


TtXZ 

37>4X 

LV+37>4X 


JR1641 


JMP 

NBV 

NEXT BRING ON PROGB 


JR1642 


JMP 

NBV-2H 



JR1643 


JMP 

NBV-ZH 



JR1644 


JMP 

NBV-2H 



JR1645 


TMD 

Y61 



JR1646 


TDXRC 

1H^5X 

LV+39+5X 0PENM-‘2 


jRi647 


JMP 

BSI 

BRING STORE EXPRESSION 


JR1648 


JMP 

SLW-IH 

END CODE OPENM-2 


JR1649 


JMP 

NBV-2H 

NEXT BRING ON PROGB 

o 

JR1650 


TMD 

Y35 



JR 1651 


TDXLC 

^5X 

LV+2»5X OPENM 


JR1652 


JMP 

BSI 

BRING STORE EXPRESSION 


JR1653 


JMP 

SLW-IH 

END CODE OPENM 


JR1654 


JMP 

NBV'-ZH 

NEXT BRING ON PROGB 


JR1655 


JMP 

OUTPUT 

PRINT AND STORE 


JR1656 

INEQT 

TIJ 

BRFT 



JR1657 


tjm 

BRNGk-lH 



JR1658 


JMP 

BRNG 

BRING FROM DATA TAPE 


JR1659 


TIJ 

BRFTD 



JR1660 


tJm 

BRNGX-^IH 



JR1661 


TMb 

LC+35 



JR1662 ‘ 


TDM 

LV+35 

SET prog 


JR1663 


TMD 

Lc+i 



JR1664 


TDM 

LV+l 

SET FOT 


JR1665 


TIXZ 

35>4X 



JR1666 


Jmp 

NBV 

NEXT BRING ON PROG 


JR1667 


JMP 

NBV-‘2H 



JR1668 


Jmp ■ 

NBV-“2H 



JR1669 


JMP 

NBV-2H* 



JR1670 


TMb 

LC+7 



JR 1671 


TDM 

LV-{-7 

SET G 


JR1672 


TMD 

Y62 



JR1673 


TDXUC 

i 4X 

LV+35#4X PROG 


JR1674 


TDXRC 

1H55X 

LV+7>5X G 

o 

JR1675 


JMP 

BSQ 

BRING STORE QUANTITY 


JR1676 

INE 

TMD 

LV+35 



JR1677 


JMP 

B 

BRING ON PROG 


JR16^8 


Tixz 

35j4X 



JR1679 


JMP 

NBV 

NEXT BRING ON PROG 



JR1680 


TMA 

Tl 

JR1681 


TMD 

PTABL 

jRi682 


JAED 

TEST 

JR1683 


TMD 

Y34 

Jr1684 


TDXRC 

lHi>5X 

JR1685 


JMP 

BSQ 

JR1686 


JMP 

SLW-IH 

JR1687 


TMD 

LC+2 

JR 1688 


TDM 

LWW 

JR1689 


JMP 

STOT 

JR1690 


TMD 

LC+1 

JR1691 


TDM 

LV4i 

JR1692 


JMP 

INE 

JR1693 


Jmp 

TEST 

JR1694 

BUG 

JMP 

BRNG 

JR1695 

SBST 

JMP 

BRNG 

JR1696 


JMP 

SUBST 

JR1697 


JMP 

OUTPUT 

jRi698 

FCTR 

JMP 

BRNG 

jRi699 


JMP 

FACTOR 

JR1700 


JMP 

OUTPUT 

JR1701 

OPN 

JMP 

BRNG 

JR1702 


JMP 

OPEN 

JR1703 


JMP 

OUTPUT 

JR1704 

TRIG 

JMP 

BRNG 

JR1705 


TMD 

LC+35 

JR1706 


TDM 

LV+SS 

JR1707 


TIXZ 

35>4X 

JR1708 


JMP 

NBV 

JR1709 


JMP 

NBV-2H 

JRITIO 


JMP 

NBV-2H 

JRITII 


TMD 

LV+35 

JR1712 


JMP 

B 

JR1713 


TMD 

PTABL+19 

JR1714 


JAED 

TRGA 

JR17I5 


TMD 

PTABL+20 

jRi7l6 


JAED 

TRGB 

JR 1717 


TMD 

PTABL+21 

JRITIB 

JR1719 


JAED 

HLT 

TRGC 

JR1720 

TRGA 

JMP 

OPEN 

JR1721 


JMP 

(P) 

JRI722 


JMP 

OUTPUT 

JR1723 

TRGB 

HLT 


JR1724 

TRGC 

HLT 


JR1725 

PUNCH 

HLT 


JR1726 

DONE 

TMD 

LV+37 

JR1727 


TDM 

LWW 

JR1728 


JMP 

EDT 

JR 17 29 


JMP 

RWSCT 

JR1730 


TMD 

LV+ST 

JR1731 


JMP 

B 

JR1732 


TIXZ 

37 ^4X 

JR1733 


JMP 

NBV 

JR1734 


TMA 

Tl 

JR1735 


TMD 

PTABL 

JR 173 6 


JAED 

AL3+1H 

JR1737 


JMP 

D0NE+4H 

JR1738 

FI N I 

JMP 

PAGE 

JR1739 


TMD 

FIN2 


END CODE 


LV+USX EOT 

BRING STORE QUANTITY 

END CODE FOt 

SET LOC OF OPENM 
STORE ON TAPE 

SET FOT 


BRING FROM TAPE DESTROY TAG 

BRING AND DESTROY TAG 

SUBSTITUTE 

PRINT And STORE 

BRING AND DESTROY 

FACTOR 

PRINT AND STORE 
BRING AND DESTROY 
OPEN 

PRINT AND STORE 
BRING AND DESTROY 

SET PROG 

NEXT BRING ON PROG 


BRING ON PROG 
A 

B 

C 

ERROR HALT 

REMOVE PARENTHESES 

TRIGA 

PRINT AND STORE 


SET LOC OF PROGB+ 
PRINT 

REWIND SCRATCH TAPE 
BRING ON PROGB 
NEXT BRING ON PROGB 
END CODE 


PAGE EJECT ON PRINTER 



Jf^1740 


TDXLC 

>lx 


Jr1741 

FIMl 

TMD 

>1X 


JR1742 

R 

RPTNN 

8 


JR1743 


tDC 



JR1744 


SCD 

42 


JR1745 


TMD 

FIN3 


JR1746 


AlXJ 

1#1X 


JR1747 


JMP 

FINISH 


JR1748 


JMP 

M/620 


JR1749 

FIN2 

P/FIN4 

♦ T15 


JR1750 

FIN3 

G/HLT> 

FIN4+3-C/JMP 

♦FINIS 

JR1751 

FIN4 

A/IFINISH OF ALGY 

RUN 1$ 

JR1752 

BRNG 

TJM 

BRNGX 

BRING FROM SCRATCH 

JR1753 


TMD 

LC4-35 


JR1754 


TDM 

LV+35 

SET PROG 

jRi755 


TMb 

Y59 


JR1756 


TDXLC 

5 4X 

LV+37j»4X PROGB 

JR1757 


TDXRC 

1H^5X 

LV+35>5X PROG 

JR1758 


JMP 

BSI 

BRING STORE EXPRESSION 

JR1759 


JMP 

NBV-2H 

NEXT BRING ON PROGB 

JR1760 


JMP 

SLW-IH 

end CODE PROG 

JR1761 


TMD 

LC+35 


JR1762 


TDM 

LWW 

SET LOG OF PROG 

JR1763 


JMP 

EDT 

PRINT 

JR1764 


CM 

FOT+1 


JR1765 


TMD 

LC+1 


JR 17 6 6 


TDM 

LV+1 

SET FOT 

JR1767 


TMD 

LC+35 


JR1768 


TDM 

LV-f35 

SET PROG 

JR1769 


TIXZ 

35i4X 

LV+35^4X 

JR1770 


JMP 

NBV 

NEXT BRING ON PROG 

JR1771 


JMP 

NBV-ZH 


JR1772 


JMP 

NBV.r2H 


JR.1773 


Jmp 

NBV-SH 


jRi774 


TMD. 

Y52 

_ _ 

JR1775, 


TDXLC 

^5X 

LV+1>5X FOT 

JR 1776' 


JMP 

BSQ 

BRING STORE.QUANTITY 

JR1777 


Jmp 

SLW-IH 

END CODE FOT 

JR1778 


TMD 

FOT 


JR1779 


TDM 

OPENM-2 


JR1780 


TMD 

FOT + 1 


JR1781 


TDM 

OPENM-1 


JR1782 


TMD 

LC+2 


JR1783 


TDM 

LWW 

SET LOC OF OPENM 

JR1784 


JMP 

BRFTD 

BRING AND DESTROY TAG 

JR1785 

BRNGX 

JMP 

(P) 

EXIT 

JR1786 

OUTPUT 

TMD 

OPENM-2 

STORE AND PRINT RESULTS 

JR1787 


TDM 

FOT 


JR1788 


TMD 

OPENM-1 


JR1789 


TDM 

FOT+1 


JR1790 


TMD 

LC+2 

_, ..-.. 

JR1791 


TDM 

LWW 

SET LOC OF OPENM 

JR1792 


TMD 

LC+39 


JR1793 


TDM 

LV+39 

SET OPENM“2 

JR1794 


TMD 

Lww 


JR1795 


JMP 

B 

BRING ON 

JR1796 


rm 

PTABL 

END CODE 

JR1797 


JAED 

(Py+2H 


JR1798 


JMP 

OTl-lH 

—... 

JR 1799 


TMD 

Y60 

o/i**«#« 



- 

JR1800 


TOM 

OPEMM 


' 

JR1801 


JMP 

STOT 

STORE ON tAPE 


JR1802 

on 

TMb 

LV+39 

.... 

.. 

JR1803 


JMP 

B- 

BRING ON OPENM-2 

o 

JR1804 


TMD 

PTABL 

END CODE 


JR1805 


JAED 

(P)+4H 



JR1806 


TIXZ 

39>4X 



JR1807 


JMP 

NBV 

NEXT BRING ON OPENM~2 


JR1808 


JMP 

OTl 



JR1809 


TMD 

PTABL+9 



JR1810 


TDM 

Tl 

PRESENT .CHARACTER 


JR1811 


TMD 

LV+39 

EQUATE SYMBOL 


JR1812 


JMP 

S 

STORE IN OPENM-2 


JR1813 

0T2 

TIXZ 

39i4X 



JR1814 


JMP 

NBV 

NEXT BRING ON OPENM-2 


JR1815 


TMA 

LV+39 

DOES (LV+39) EQUAL OPENM 


JR1816 


TMD 

LC+2 



JR1817 


JAED 

OT3 



JR1818 


TMD 

PTABL+13 

IGNORE...., 


JR1819 


TDM 

Tl 

PRESENT CHARACTER 


JR1820 


TMD 

LV439 



JR1821 


JMP 

S 

STORE IN OPENM--2 


JR1822 


JMP 

OT2 



JR1823 

0T3 

TMD 

LC+39 

OPENM-2 


jRi824 


TDM 

LWW 

SET LOG OF OPENM-2 


JR1825 


JMP 

EDT. 

PRINT 


JR1826 


JMP 

TEST 

RETURN to TEST 


JRI.827 


PAGE 




JR1828 


EDIT 

INPUT PROGRAM 

DESTROYING SEQUENCE NOS 


JR1829 

SEARCH 

TJM 

SEAX 

_. .. 

w 

JR1830 


TIJ 

LtX 

EXIT LOCATE PREMATURE 


JR1831 


TJM 

LT2 



JR1832 


JMP 

LOCATE 

LOCATE INPUT PROGRAM 


JR1833’ 


TIJ 

LT2+1H 

SET NORMAL EXIT IN LOCATE 


jR1834 


TJM 

LT2 



JR1835 

LT5 

TMA 

USE 

USE ZERO 


JR1836 


JMP 

IN 

INITIALIZE 


JR1837 


TMD 

Y64 

PR0GB»T15 


JR1838 


TDXLC 

j7X 



JR1839 

LT6 

TMA 

*7X 

ION TH WORD 


JR1840 


TMD 

Y65 

A/LAST $ 


JR1841 


JAED 

LT7 



JR1842 


TMA 

Y66 

8/1100.00 .. 


JR1843 


TMQ 

Y67 

24/0-24/1 


JR1844 


EIS 

♦ 7X 



JR1845 


TMD 

Y68 

C/HLT>PROGB+120-C/JMP»LT6 


JR1846 


AIXJ 

10»7X 



JR1847 


JMP 

BSSCT 

BACKSPACE INPUT TAPE 


JR1848 


TMA 

Y64 

P/PROGBjTl5 


JR1849 


JMP 

WTSCT 

WRITE INPUT TAPE 


JR1850 


JMP 

REP 

READ FORWARD INPUT TAPE 


JR1851 


JMP 

LT5 



JR1852 

LT7 

JMP 

BSSCT 

backspace.INPUT TAPE 


JR1853 


TMA 

Y64 . 

P/PROGB»T15 


JR1854 


JMP 

WTSCX 

WRITE INPUT TAPE 

o 

JR1855 


JMP 

LOCATE 

LOCATE INPUT PROGRAM 


JR1856 

SEAX 

JMP 

tp) 

EXIT 


JR1857 

LOCATE 

TJM 

LTX 



JR1858 


TMA 

USE 



JR1859 

1 

JMP 

IN 





- 

"V 

JR1860 


Jmp 

RWSCT 

REWIND INPUT tAI^E 

' 

JR1861 

LTI 

JMP 

RFP 

READ BLK INPUT TAPE 


JR1862 


TMA 

PROGB 



JR1863 


TMD 

Y69 

A/ B $ 

o 

JR1864 


JAED 

LT2 



JR1865 


TMD 

Y65 

A/LAST $ 


JR1866 


JAED 

LTX+lH 



JR1867 


JMP 

LTI 



JR1868 

LT2 

JMP 

LT241H 



JR1869 


TMD 

Y66 

8/110000 


JR1870 


TDM 

PROGB 



JR1871 

LTX 

JMP 

(P) 

EXIT 


JR1872 


TMD 

Y70 

P/LT4»T15 


JR1873 


TDXLC 

fix 



JR1874 

LT3 

TMD 

*1X 



JR1875 

R 

RPTNN 

8 



JR1876 


TDC 




JR1877 


SCD 

42 



JR1878 


TMD- 

Y71 

G/HLT*LT4+3-C/JMPfLT3 


JR1879 


AlXJ 

I^IX 



JR1880 


HLT 




JR1881 


JMP 

LTl-lH 



JR1882 

LT4 

A/IPROGRAM NOT i 

ON TAPE 1$ 


JR1883 

STOT 

TJM 

STX 

STORE ON TAPE 


JR1884 


JMP 

RED 

READ FORWARD DATA TAPE 


JR1885 


TMA 

DATA*-2 

IS IT last BLOCK MARKER 


JR1886 


TMD 

PTABL+2 



JR1887 


JAED 

(P)+2H 

YES 


jRiass 


JMP 

STOT+lH 

NO#READ another BLK 


JR1889 


TMD 

LC+36 

DATA-2 

u 

JR1890 


TDXLC 

#2X 



JR1891 

L 

RPTA 

128 



JR1892 


CM 

f2X 



JR1893 


TMD 

LC-fl 

FOT 


JR1894 


TDM 

LV+1 

__ ' 


jRia95 


TMD 

LC-^36 

DATA-‘2 


JR1896 


TDM 

LV+36 



JR1897 


TMD 

LC+27 

DATA 


JR1898 


TDM 

LV+27 



JR1899 


Jmp 

BSD 

BACKSPACE DATA TAPE 


JR1900 


TMD 

T79 



JR1901 


TDXLC 

j4X 

LV+1^4X FOT 


JR1902 


TDXRC 

1H>5X 

LV+36>5X DATA-2 


JR1903 


JMP 

BSE 

BRING STORE EXPRESSION 


jRi904 


JMP 

SLW-IH 

END CODE DATA-2 


JR1905 


TMD 

Y80 



JR1906 


TDXLC 

^4X 

LWWfTlS 


JR1907 


TDXRC 

1Hj5X 

LV+27fT39 DATA 


JR1908 


JMP 

• aSE 

BRING STORE EXPRESSION 


JR1909 


JMP 

SLW'-IH 

END CODE data 


JR1910 


JMP 

WFD 

WRITE DATA TAPE 


JR1911 


TMD 

PTABL+2 

LAST BLOCK MARKER 


JR1912 


TDM 

DATA-2 



JR1913 


JMP 

'WFD 

WRITE FORWARD. DATA-TAPE 


JR1914 


JMP 

BSD 

BACKSPACE DATA TAPE 

o 

JR1915 

SIX 

JMP 

(P) 

EXIT , 

JR1916 


SEARCH 

DATA .FOR 

NAME EQUAL TO CONTENTS OF FOT»+l 


JR1917 

BRFT 

TJM 

BRFTX 

BRING FROM DATA TAPE 


JR1918 


CM 

BCNT 

BLK COUNTER 


JR1919 


TtJ 

BF9 

DO NOT DESTROY NAME 




JR1920 


TJM 

BF8 



JR1921 


JMP 

BFl 



JR1922 

BRFTD 

TJM 

BRFTX 

BRING DESTROY TAG 

/ \ 

JR1923 


CM 

BCNT 

BLK COUNTER 

u 

JR1924 


TIJ 

BF8+1H 



JR1925 


TJM 

BF8 .. 



JR1926 

BFl 

TMD 

LC4*27 

DATA~2 


JR1927 


TDM . 

LV+27 



JR1928 

BF2 

INCAL 

BCNT 



JR1929 


JMP 

RFD 

READ 1 BLK FROM DATA TAPE 


JR1930 


TMA 

DATA-2 

NAME 


JR1931 


TMD 

PTABL-I'B ' 

IS LAST BLK MARKER#-* 


JR1932 


JAED 

BF4 

YES TO. BF4 


JR1933 


TMA 

FOT- - 

DESIRED NAME 


JR1934 


TMD 

DATA-2 

NAME 


JR1935 


JAED 

BF3 

YES TO BF3 


JR1936 


JMP 

BF2 

NO TO BF2 


JR1937 

BF3 

TMA 

FOT + 1 

20ND PART OF NAME 


jRi938 


TMD 

DATA-l 



JR1939 


JAED 

BF8 

same names to BF8 


JR1940 


JMP 

BF2 

NO RETURN BF2 


JR1941 

BF4 

TMD 

BCNT 



JR1942 


TDXLC 

* IX 

NOo OF BLKS PROCESSED 


JR1943 


JMP 

BSD 

bask space 1 BLOCK 


JR1944 


CD 

■ . V . 



JR1943 


SiXOL 

iiix 



JR1946 


JNO 

(PJ“3H 



JR1947 

BF5 

JMP 

RRO 

READ IN reverse DATA TAPE 


JR1948 


TMA 

DATA+123 

name. 

o 

JR1949 


TMD 

PTABL+1 

PLUS 

JR1950 


JAED 

BRETX+IH 

NOT ON TAPE ERROR EXIT 


JR1951 


TMD 

FOT 

DESIRED NAME 


JR1952 


JAED 

BF6 

EQUAL TO,BF6 


JR1953 


JMP 

BF3 

UNEQUAL TO BF5 


JR1954 

BF6 

TMA 

DATA+124 

20ND part of name 


JR1955 


TMD 

fot+1 

20ND part of DESIRED NAME 


JR1956 


JAED 

BF7 

EQUAL TO BF7 


JR1937 


JMP 

BF5 

UNEQUAL TO BF5 


JR1958 

BF7 

Jmp 

RFD 

READ. FORV/ARD DATA TAPE 


JR1959 

BF8 

JMP 

(P) 

SWITCH TO DESTROY OR NOT 


JR1960 


JMP 

BSD ■ 

BACKSPACE DATA TAPE 


JR1961 


CM 

DATA-2 

CLEAR THE NAME 


JR1962 


CM 

DATA-i 



JR1963 


JMP 

WFD 

WRITE FORWARD DATA TAPE 


JR1964 

BF9 

TMD.- 

Y72 



JR1965 


TDXLC 

>4X 

LV+27#4X DATA 


JR1966 


TDXRC 

IH ^ 5X 

LWW#5X 


JR1967 


JMP 

BSE 

BRING STORE EXPRESSION 


JR1968 


JMP 

SLW-IH 

END CODE 


JR1969 

BRFTX 

JMP 

(P) 

EXIT 


JR1970 


TMD 

Y73 

P/BFll fT15 


JR1971 


TDXLC 

>1X 



JR1972 

BFIO 

TMD 

fix 



JR1973 

R 

RPTNN 

8 


o 

JR1974 


TDC 



JR1973 


SGD 

42 



JR1976 


TMD 

Y74 

C /HIT * BF11+3-C/JMP # BF10 


jRi977 


AiXJ 

IflX 



JR19T8 


JMP 

PAGE 



JR1979 


NOP 


trap LOCATION 



JR1986 


JMP 

FINISH 


jRl-981 


Jmp 

FLEXO 


JR1982 

BFll 

A/IEXPRESSION NOT 

ON TAPEIS 

jRl983 

BCMT 

D/0 



JR1984 


PAGE 



jRi985 

EDT 

TJM 

EDTX 

EDIT AND PRINT OUTPUT 

JR1986 


TMD 

LC+34 


JR1987 


TDM 

LV+34 

SET BUFF 

JR1988 


TDXLC 

>2X 


JR1989 


TMD- 

Y66 

8/110000 

JR1990 

L 

rpta 

15 


JR1991 


TDM 

1»2X 


JR1992 

EDTD 

TMD 

LWW 


JR1993 


JMP 

B 

BRING ON LWW 

JR1994 


TMD 

Y72 


JR1995 


TDXRC 

1H>4X 


JR1996 


Jmp 

NB\/-2H 

NEXT BRING ON LWW 

JR1997 


TMA 

Tl 


JR1998 


TMD 

PTABL 

END CODE 

JR1999 


JAED 

EDTC 


JR2000 


TMD 

Y75 

C/HLTLfPTABL 

JR2001 


tdxLg 

# 2 X 


JR2002 


TMA 

Tl 


JR2003 

R 

RPTAN 

10 

IS IT A SPECIAL character 

:)R2004 


TMD 

1*2X 


JR2005 


-JAED 

EDTB 


JR2006 


TMD 

LV+34 


JR2007 


JMP 

S 

STORE IN BUFF 

JR2008 


Tixz 

34f5X 

_ ; 

JR2009 


JMP 

NSV 

NEXT STORE IN BUFF 

JR2010 


JMP 

EDTD 


JR2011 

EDTB 

CM 

LWX 

_ 

JR2012 


TIJ 

TAB-PTABL-IjEX 

JR2013 


TJM 

LWX 


JR2014 


TMD 

Y76 


JR2015 


TbxLc 

>4X 

LWXf4X SS 

JR2016 


TDXRC 

IH^SX 

LV+34f5X BUFF 

JR2017 


JMP 

BSE 

BRING STORE EXPRESSION 

JR2018 


JMP 

EDTD 


JR2019 

EDTC 

TMD 

LV+34 


JR2020 


JMP 

S 

STORE IN BUFF 

JR2021 


JMP 

PRINT 


JR2022 

EDT)e, 

JMP 

(P) 

EXIT EDIT 

JR2023 

PRINT 

TJM 

{P)+3H 


JR2024 


TMA 

Y77 


JR2025 


Jmp 

PANT 


JR2026 


JMP 

(Pi 


JR2027 


SPACE 

3 


JR2028 

REP 

TJM 

RFPX 

read FROM PROGRAM TAPE 

JR2029 


TIJ 

RD 

READ FORWARD 1 BLK 

JR 2036 


tJm 

RDl 


JR203i 


TJM 

RD2 


JR2032 


TMA 

USE 

USE ZERO FOR PROGRAM TAPE 

JR2033 


JMP 

IN 

INITIALIZE control 

JR2034 


TMA 

Y64 

P/PROGB 

JR2635 


JMP 

RDSCT 

READ i BLOCK 

JR2036 


TMA 

USE+i 

USE 1 FOR DATA TAPE 

JR2037 


JMP 

IN 

INITIALIZE 

JR2038 

RFPX 

JMP 

(P) 

EXIT 

JR2039 


SPACE 

3 




- 

JR2040 

RFD 

tjm 

RFDX 

READ FROM DAfA TAPE 


JR2041 


TIJ 

RD 

READ FORWARD 


JR2042 


tJm 

RDl 


/' 'l, 

JR2043 


tJm 

RD2 


O' 

JR2044 

RFDl 

TMA 

Y78 

DATA-2»T15 


JR2045 


JMP 

RDSCT 

READ 1 BLOCK 


JR2046 

RFDX 

JMP 

(P) 

EXIT 


JR2047 


SPACE 

3 



JR2048 

RRD 

TJM 

RFDX 

READ REVERSE DATA TAPE 


JR2049 


TIJ 

RDR 

READ BACKWARD 


JR2050 


tJm 

RDi 



■ JR2051 


TJM 

RD2 



JR2052 


JMP 

RFDl 



JR2053 


SPACE 

3 



JR2054 

WFO 

TJM 

WFDX 

WRITE ON DATA TAPE 


JR2055 


TMA 

Y78 

DATA-2tT15 


JR2056 


JMP 

WTSCT 

WRITE 1 BLOCK 


JR2057 

WFDX 

JMP 

(P) 

EXIT 


JR2058 


SPACE 

3 



JR2059 

BSD 

TJM 

BSDX 

BACKSPACE THE DATA TAPE 


JR2060 


JMP 

BSSCT 

BACKSPACE 1 BLOCK 


JR2061 

BSDX 

JMP 

(P) 

EXIT 


JR2062 


PAGE 




JR2063 

EX PAD 

TDM 

EXPV 

EXPONENT ARITHMETIC 


JR2064 


TJM 

EXPX 



JR2065 


TMD 

LC+18 

EE2 


JR2066 


TDXLC 

>3X 



JR2067 


JMP 

RT 

BCD TO-BINARY CONVERSION 


JR2068 


TMD 

RTW+1 

RESULTING CONVERSION 

o 

JR2069 


TDM 

EE2 • 



JR2070 


TMD 

LC+17 

EEl 


JR2071 


TDXLC 

f 3X 



■JR2072 


JMP 

RT 

BCD TO BIN CONVERSION 


JR2073 

EXPV 

D/0 


. 


JR2074 


TAQ 




JR2075 


JMP 

TR 

BINARY TO BCD CONVERSION 


JR2076 


TMD 

LC+32 



JR2077 


TDM 

LV+32 

SET TRU 


JR2078 


TMD 

LC+18 



JR2079,, 


TDM 

LV*fl8 

SET EE2 


JR2080 

EXPZ 

TMD 

LV*F32 



JR2081 


JMP 

B 

BRING ON TRU 


JR2082 


TlXZ 

32>4X 



JR2083 


JMP 

NBV 

NEXT BRING ON TRU 


JR2084 


TMA 

T1 



JR2085 


JAZ 

EXPZ 



JR2086 


TMD 

PTABL 

END CODE 


JR2087 


JAED 

EXPX-FIH 



JR2088 

EXPW 

Tixz 

32>4X 



JR2089 


JMP 

DECKV 

Lb ON TRU 


JR2090 


TMD 

Y63 



jR209i 


TDXLC 

*4X 

LV+32>4X TRU 


JR2092 


TDXRC 

iH>5X 

LV+18f5X EE2 


JR2093 


JMP 

BSQ 

BRING STORE QUANTITY 

r'\ 

JR2094 


JMP 

SLW-IH 

END, CODE EE2 

U 

JR2095 

EXPX 

JMP 

(P) 



JR2096 


CM 

T1 



JR2097 


TMD 

LV+18 



JR2098 


JMP 

S 

STORE IN EE2 


JR2099 


Tixz 

l8f5X 




JR2100 


JMP 

MSV 

JR2101 


JMP 

EXPW 

JR2102 

NUMAD 

TJM 

PLUX 

JR2103 


ICOZ 


JR2104 


Jmp 

MUA 

JR2105 


tma 

S3 

JR2106 


TMQ 

PTABL+1 

JR2107 


SLQ 

42 

JR2108 


JAEQ 

(P)-1-2H 

JR2109 


CSMS 

NUMER 

JR2110 


TMA 

S4 

JR2111 


JAEQ 

(P)+2H 

JR2112 


CSMS 

RTW+2 

JR2113 


TMQ 

DENOM 

JR2114 


MM 

RTW+1 

JR2115 


JAZ 

(P)+2H 

JR2116 


JMP 

WOLF 

JR2117 


TQM. 

PLUX+1 

JR2118 


TMQ 

NUMER 

JR2H9 


MM 

RTW+1 

JR2120 


JAZ 

(P)+4H 

jR2r2l 


Am 

CNST+2 

JR2122 


JAZ 

(P)+2H 

JR2123 


Jmp 

WOLF 

JR2T24 


TQM 

NUMER 

JR2125 


TMQ 

DENOM 

jR2i26 


MM 

RTW+2 

JR2127 


JAZ 

(P)+4H 

JR2128 


AM 

CNST+2 

JR2129 


JAZ 

^P)+2H 

JR2130 


JMP 

WOLF 

JR2T31 


TQA 


JR2132 


AMS 

NUMER 

JR2133 


JOF 

WOLF 

JR2134 


TMQ 

PTABL-H 

JR2135 


JAP 

(P)+3H 

jR2l36 


GAMAS 

NUMER 

JR2137 


TMQ 

PTABL+2 

JR2138 


SliQ 

42 

JR2139 


TQM 

S4 

JR2140 


TMD 

PLUX+1 

JR2141 


TDM 

DENOM 

JR2142 


JMP 

MUB 

JR2143 

PLUX 

JMP 

(P) 

jR2i44 


D/0 


JR2145 


SPACE 

3 

JR2146 

NUMULT 

TJM 

XX 

JR2147 


JMP 

MUA 

JR2148 


TMQ 

RTW+2 

JR2149 


MM 

NUMER 

JR2150 


JAZ 

(P)+2H 

JR2151 


JMP 

WOLF 

JR2152 


TQM 

NUMER 

JR2153 


TMQ 

RTW+1 

JR2154 


MM 

DENOM 

JR2i55 


JAZ 

(P)+2H 

JR2156 


JMP 

WOLF 

JR2157 


TQM 

DENOM 

JR2158 


JMP 

MUB 

JR2159 

XX 

JMP 

<P) 


next store on EE2 
ADD FRACTIONS 

CONVERT from BCD TO BINARY 
SIGN OF N1 
+ 

IS N1 POSITIVE 
NO> “NUMERATOR N1 
SIGN OF N2 
IS N2 POSITIVE 
NO> -NUMERATOR N2 
DENOMINATOR N1 
DENOMINATOR N2 

ERROR EXIT 

NUMERATOR N1 
DENOMINATOR N2 

1B47 

ERROR EXIT 

DENOMINATOR Ml 
NUMERATOR N2 

IB47 • 

ERROR EXIT 

AD + CB 
ERROR EXIT 


Absolute sum 


sign of sum 

product of DENOMINATORS 

REDUCE AND CONVERT BlNlBCD 
EXIT 


multiply FRACTIONS 

CONVERT TO BINARY 

numerator OF N2 

NUMERATOR OF N1 

IF EXACT JMP 

ERROR EXIT 

PRODUCT NUMERATOR 

DENOMINATOR OF N2 

DENOMINATOR OF N1 

IF EXACT JMP 

ERROR EXIT 

PRODUCT DENOMINATOR 

REDUCE LOW COM*CONVERT BCD 

EXIT 




JR2160 

MUA 

TJM 

MUAX 

CONVERT FROM BCD TO BINARY 


JR2161 


TMD 

LC415 

N1 


JR2162 


tdxLc 

*3X 



JR2163 


JMP 

RT 

BCD TO BIN 

o 

JR2164 


TMD 

RTW+2 

NUMERATOR 


JR2165 


TDM 

NUMER 



JR2166 


TMD 

RTW+1 

DENOMINATOR 


JR2167 


TDM 

DENOM 



JR2168 


TMD 

LC4-16 

N2 


JR2169 


TDXLC 

*3X 



JR2170 


JMP 

RT 

BCD TO BIN 


JR2171 

MUAX 

JMP 

(P) 

EXIT 


JR2172 

MUB 

TJM 

MUBX 

REDUCE TO LCD AND BCD 


JR2173 


JMP 

DUCT 

TO LCD 


JR2174 


TMQ 

NUMER 

NUMERATOR 


JR2175 


JMP 

TR 

BIN TO BCD 


JR2176 


TMD 

LC+32 



JR2177 


TDM 

LV+32 

SET TRU 


JR2178 


TMD 

LC4-16 



JR2179 


TDM 

LV+iB 

SET N2 


JR2186 

mubd 

TMD 

LV+32 



JR2181 


JMP 

B 

BRING ON TRU 


JR2182 


TIXZ 

32*4X 



JR2183 


JMP 

NBV 

NEXT BRING ON TRU 


jR2i84 


TMA 

T1 



JR2185 


JAZ 

MUBD 



JR2186 


TMD 

PTABL 

END CODE 


JR2187 


JAED 

mUbe 



JR2188 


TIXZ 

32f4X 


o 

JR2189 


JMP 

DECKV 

LAST BRING ON TRU 

JR2190 


TMD 

Y30 



JR2191 


TDXRC 

1H>5X 

LV+16y5X N2 


JR2192 


JMP 

BSQ 

BRING STORE QUANTITY 


JR2193 

MUBF 

TMD 

PTABL+8 

SLASH 


JR2194 


TDM 

T1 



JR2195 


TMD 

LV+16 



JR2196 


JMP 

S 

STORE IN N2 


JR2197 


JMP 

NSV~2H 

NEXT STORE ON N2 


JR2198 


JMP 

MUBC 



JR2199 

MUBE 

CM 

Tl 



JR2200 


TMD 

LV+16 



JR2201 


JMP 

S ■ 

STORE IN N2 


JR2202 


TIXZ 

16>5X 



JR2203 


JMP 

NSV 

NEXT STORE ON N2 


JR2204 


JMP 

MUBF 



JR2205 

MUBC 

TMQ 

DENOM 

DENOMINATOR 


JR2206 


Jmp 

TR 

BIN TO BCD 


JR2207 


TMD 

LC+32 



JR2208 


TDM 

LV+32 

SET TRU 


JR2209 

MUBG 

TMD 

LV+32 



JR2210 


Jmp 

B 

BRING ON TRU 


JR2211 


TIXZ 

32*4X. 



JR 2212 


JMP 

NBV 

next BRING ON TRU 


JR2213 


TMA 

Tl 


_ 

JR2214 


JAZ 

MUBG 


o 

JR 2215 


JMP 

DECKV-2H 

LAST BRING ON TRU 


JR2216 


TMD 

Y30 



JR2217 


TDXRC 

1H»5X 

LV+16>5X N2 


JR2218 


JMP 

BSQ 

BRING STORE QUANTITY 


jR22i9 


Jmp 

$LW-1H 





JR 2226 


tMD 

Lc+16 



JR2221 


TDM 

LV+16 

SET N2 

o ■ 

JR2222 

MUBX 

Jmp 

(P^ 

EXIT MUB 


JR2223 

DUCT 

tJm 

DUX 

REDUCE TO LCD 


JR2224 


TMA 

DENOM 

DENOMINATOR 


JR2225 


JAZ 

WOLF 

ERROR EXIT 


JR 2226 


TAM 

REMAM 

REMAINDER 


JR2227 


TMQ 

NUMER 

numerator 


JR2228 

DULL 

CA 




JR2229 


DAQ 

REMAN 

DIVIDE BY REMAINDER 


JR2230 


JAZ 

DUCK 

IS NEW REMAINDER ZERO 


JR2231 


TMQ 

REMAN 

NO> OLD REMAN TO Q 


JR2232 


TAM 

REMAN 

new REMAINDER 'TO REMAN 


JR2233 


JMP 

DULL 



JR2234 

DUCK 

TMQ 

NUMER 

NUMERATOR 


JR2235 


DAQ 

REMAN 

DIVIDE BY GREATEST FACTOR 


JR2236 


TQM 

NUMER 

REDUCED NUMERATOR 


JR2237 


TMQ 

DENOM 

DENOMINATOR 


JR2238 


DAQ 

reman 

DIVIDE BY GREATEST FACTOR 


JR2239 


TQM 

DENOM 

REDUCED DENOMINATOR 


JR2240 

DUX 

JMP 

(P) 

EXIT 


jR224i 


SPACE 

3 



JR2242 

RT 

TJM 

RTX 

BCD TO BINARY CONVERSION 


JR2243 


CM 

RTW+l 

XO 


JR2244 


TMQ 

>3X 

NO. TO BE CONVERTED 


JR2245 


TIXZ 

0 > 2 X 

N=1 


JR2246 

RTY 

CA 




JR2247 


SLAQ 

6 

XN TO A 


JR2248 


TMD 

PTABL*f 8 

IS C A SLASH 


JR2249 


JAED 

RTZ 

YES TO RTZ 


JR2250 


TMD 

PTABL 

IS C AN END CODE 


JR2251 

RTX 

JAED 

(P) 

YES* EXIT 


JR2252 


AM 

RTW+1 

XN 


JR2253 

L 

RPT 

9 



JR2254 


AD 




JR2255 


TAM . 

RTW+1 

XN 


JR2256 

RTV 

TMD 

RTW 

8#RTy 


JR2257 


AIXJ 

1#2X 

N+1 TO N * IS N 8 


JR2258 


AIXO 

1>3X 

NEW WORD 


JR2259 


JMP 

RTY- 2 H 



JR2260 

RTW 

C/HLT *8 

-C/JMPfRTY 



JR 2261 


SET 

(P )+2 



JR2262 

RTZ 

• TMD 

RTW+1 

XN TO RTW+2 


JR2263 


TDM 

RTW+2 



JR2264 


CM 

RTW+1 



JR2265 


JMP 

RTV 



JR2266 

TR 

TJM 

TRX 

BIN TO BCD 


JR2267 


TMD 

PTABL 

END CODE 


JR2268 


TDM 

TRU+1 



JR2269 


CM 

TRU 



JR2270 


TMD 

XWRD*f2 

TRU+I 16 


JR2271 


TDXLC 

♦ 3X 



JR2272 

TRY 

TDXRC 

IHvZX 


o 

JR2273 


CA 


IS NO. A ZERO 


JR2274 


JAEQ 

TRX 

YES TO EXIT 


JR2275 


DAQ 

CNST+4 

D/10 


JR2276 


SLA 

^2X 

SHIFT LEFT AMOUNT OF 2X 


JR2277 


AMS 

^3X 

ANSWER STORAGE 


JR2278 


TMD . 

TRW 

48>TRY+1H 


JR2279 


AIXJ 

6|2X 




ijR2280 


SIXOL 

U3X 


JR2281 


CD 



JR2282 


JMP 

TRY 


JR2283 

TRX 

JMP 

(P) 

EXIT 

JR2284 

TRW 

C/HLT>48-G/JMP♦TRY+IH 


JR2285 

TRU 

SET 

(P)+2. 


JR2286 

WOLF 

TJM 

W03 


JR2287 


TMD 

Y81 


JR2288 


tdxLc 

*2X 


JR2289 

WO.l 

TMD 

>2X 


JR2290 

R 

RPTNN 

8 


JR2291 


TDC 



JR2292 


SCD 

42 


JR2293 


TMD 

Y82 


JR2294 


AIXJ 

1>2X 


JR2295 


JMP 

PAGE 


JR2296 


NOP 

' 

TRAP location 

JR2297 


Jmp 

FINISH 


JR2298 


JMP 

FLEXO 


JR2299 

W03 

HIT 

0 


JR2300 

W02 

A/INO. 

TOO LARGE 1$ 


JR2301 


PAGE 



JR2302 


INTERPRETIVE CONTROL 

ROUTINE 

JR2303 

B 

TDXLC 

»0X 


JR2304 


TDXRC 

IHflX 


JR2305 


TJM 

BX 


JR2306 


CA 



JR2307 


TMQ 

»0X 


JR2308 


SLQ 

fix 


JR2309 


SLAQ 

6 


JR2310 


TAM 

T1 


jR231i 

BX 

JMP 

(P) 


JR2312 

$ 

TDXLC 

»OX 


JR2313 


TDXRC 

IHrlX 


JR23i4 


TJM 

SX 


JR2315 


TMD 

fOX 


JR2316: 


TDXRC 

1H>2X 


JR2317 


TMD 

Y84 


JR2318 


AIXJ 

0»2X 


JR2319 


CD 



JR2320 


TXDRC 

1H»0X 


JR2321 


SRD 

8 


JR2322 


TDA 



JR2323 


CQ 



JR2324 

R 

RPTNN 

8 


JR2325 


SRAQ 

3 


JR2326 


SRQ 

3 


JR2327 


TQA 



JR2328 


TMQ 

Y85 


JR2329 


SLAQ 

6 


JR2330 


TAM 

TRU+1 


JR2331 


TMD 

Y86 


JR2332 


tdxLc 

>3X 


JR2333 

OVl 

tMD 

i3X 


JR2334 

R 

RPTNN 

8 


JR2335 


TDC 



JR2336 


SCD 

42 


JR2337 


TMD 

Y87 


JR2338 


AIXJ 

lf3X 


JR2339 


TMD 

Y88 





JR2340 


rptnN 

3 


JR2341 


tDC 


^ - 

JR2342 


SGD 

42 

L") 

JR2343 


TMD 

TRU+1 


JR2344 

R 

RPtNN 

8 


JR2345 


TDC 



JR2346 


SCD 

42 


JR2347 


Jmp 

PAGE 


JR2348 


NOP 



JR2349 


Jmp 

FINISH 


JR2350 


Jmp 

FLEXO 


JR2351 

SW 

TMQ 

♦ OX 


JR2352 


SLAQ 

♦ IX 


JR2353 


SLQ 

6 


JR2354 


SLA 

6 


JR2355 


AM 

T1 


JR2356 


sraq 

6 fix 


JR2357 


TQM 

♦ OX 


JR2338 

SX 

Jmp 

(P) 


JR2359 

0V2 

A/ITABLE OVERFLOW S 


JR2360 

HBW 

TMD 

COT 


JR2361 


ADXR 

1H|4X 


JR2362 


TJM 

NBX 


JR2363 


Jmp 

NB 


JR2364 

MBV 

. TJM 

NBX 


JR2365 


TMD 

COT 


JR2366 


adxl 

♦ 4X 


JR2367 

MB 

TMD 

♦ 4X 


JR2368 


TDXLC 

>OX 


JR2369 


TDXRC 

IHflX 


JR2370 


TMD 

Y89 


JR2371 


aixj 

6*1X 


JR2372 


SDXL 

♦ IX 


JR2373 


TMD 

Y90 


JR2374 


AIXJ 

1>0X 


JR2375 


TMD 

LC+37 


JR2376 


TDXLC 

♦ OX 


JR2377 


JMP 

RFP 


JR2378 


JMP 

NBA 


JR2379 

NBB 

TMD 

Y91 


JR2380 


AIXJ 

O^OX 


jR238i 


TMD 

LC+27 


JR2382 


TDXLC 

♦ OX 


JR2383 


JMP 

RFD 


JR2384 

NBA 

CD 



JR2385 


TXDLC 

♦ OX 


JR2386 


TXDRC 

IH^IX 


JR2387 


TDM 

♦ 4X 


JR2388 

NBX 

JMP 

(P) 


JR2389 

NSW 

TMD 

COT 


JR2390 


ADXR 

lHf5X 


JR2391 


TJM 

NSX 


JR2392 


JMP 

NS 


JR2393 

NSV 

TJM 

NSX 

C'~'j 

JR2394 


TMD 

COT 

^/ 

JR2395 


ADXL 

♦ 5X 


JR2396 

NS 

TMD 

♦ 5X 


JR2397 


TDXLC 

♦ OX 


JR2398 


TDXRC 

iHflX 


JR2399 


TMD 

Y92 



JR2400 

JR2401 

JR2402 

JR2403 

JR2404 

JR2405 

JR2406 

JR2467 

JR2408 • 

JR2409 L 


JR2410 

JR2411 

JR2412 

NSA 

JR2413 
JR2414 
JR2415 
JR2416 
JR2417 
JR2418 
JR2419 

i^SB 

JR2420 

JR2421 

JR2422 

JR2423 

MSX 

JR2424 

DECKW 

JR2425 

JR2426 

JR2427 

JR2428 

DEGKV 

JR2429 

JR2430 

JR2431 

DECK 

JR2432 
JR2433 
JR2434 
JR2435 
JR2436 
JR2437 
JR2438 
JR2439 

DKW 

JR2440 

JR2441 

JR2442 

DKX 

JR2443 

JR2444 

JR2445 


JR2446 

SLWW 

JR2447 

JR2448 

JR2449 

JR2450 

SLWV 

JR 2 431 
JR2452 
JR2453 

SLW 

JR2454 
JR2455 
JR2456 
JR2457 
JR2438 
JR2459 

SLWX 


AtXJ 

6 fix 

SDXL 

JIX 

TMD 

Y93 

AIXJ 

liOX 

JMP 

PRINT 

TMD 

LC+34 

TDXLC 

4 OX 

TDXLC 

i3X 

TMD 

Y66 

RPTA 

15 

TDM • 

lf3X 

JMP 

NSB 

TMD 

Y94 

AIXJ 

0#0X 

TMD 

LC+27 

TDXLC 

*OX 

JMP 

WFD ' 

CM 

DATA-2 

CM 

DAtA-1 

CD • 


TXDLC 

fOX 

TXDRC 

iHflX 

TDM 

f3X 

JMP ' 

(py 

TMD 

COT 

ADXR 

1H^4X 

TJM 

DKX 

JMP 

DECK 

TJM 

DKX 

TMD 

GOT 

ADXL ' 

i4X 

TMD 

*4X 

TDXLC 

>OX 

TDXRC 

IHjlX 

TMD 

Y95 

SIXJ 

O^IX 

TMD 

Y96 

SDXL 

iOX 

TDXRC 

1H,1X 

TXDLC 

>OX 

TXDRC 

IH^IX 

TDM 

i4X 

JMP 

<Pi 

SIXO 

enx 

CD 

JMP 

DKW 

TMD 

COT 

AdXR 

iH>5X 

TJM 

SLWX 

Jmp 

SLW 

TMD 

COT 

AdXL 

i5X 

tJm . 

SLWX 

TMD 

PTABL 

TDM 

Ti • 

TMD 

*5X 

JMP 

S 

TMD 

Y97 

AIXJ 

6) IX 

JMP 

(P) 



4 - * 

JR2466 


TMD 

> 5X 


JR2461 


TXDRC 

IHjlX 


Jr2462 


tdm 

f5X 


JR2463 


Jmp 

SLW+3H 


Jr2464 

COT 

P/LV»T1£ 

»-P/LV/»T39 


JR2465 

BSQ 

TJM 

BSQX 


JR2466 


JMP 

BI 


JR2467 


TMD 

Y75 


viR2468 


TdXLc 

♦ 2X 


JR2469 

R 

RPTAN 

9 


JR2470 


TMb 

1>2X 


JR2471 


JAED 

BSQP 


JR2472 


TMQ 

CNST+4 


JR2473 


JAGQ 

BSQL 


JR2474 


TMD 

PTABL+1 


JR2475 


TDM 

QFF 


JR2476 

BSOW 

Jmp 

NBW+2H 


JR2477 


TMD 

>5X 


JR2478 


Jmp 

S 


JR2479 


JMP 

NSW-F2H 


JR2480 


JMP 

BI 


JR2481 


TMD 

PTABL+8 


JR2482 


JAED 

BSQW 


JR2483 


TMQ 

CNST+4 


JR2484 


JAGQ 

BSQX 


JR2485 


JMP 

BSQW 


JR2486 

BSQL 

TMD 

PTABL+3 


JR2487 


TDM 

QFF 

(0 

JR2488 


JMP 

NBW+2H 


JR2489 


TMD 

♦ 5X • 


JR2495 


Jmp 

S 


JR2491 


JMP 

NSW+2H 


JR2492 


JMP 

BI 


JR2493 


TMD 

Y75 


JR2494 


TDXLC 

<2X 


JR2495 

R 

RPTAN 

9 


JR2496 


TMD 

1>2X 


JR2497 


JAED 

BSQX 


JR2498 


JMP 

BSQL-1-2H 


JR2499 

BSQP 

TMD 

PTABL+2 


JR2500 


TDM 

QFF 


JR2501 


JMP 

NBW+2H 


JR2502 


TMD 

>5X 


JR2503 


JMP 

S 


JR2504 


JMP 

NSW*>-2H 


JR2505 

BSOX 

JMP 

(P) 


JR2506 

BSE 

TJM 

BSEX , 


JR2507 


TMD 

»4X 


JR2508 


JMP 

B 


JR2509 


TMD 

PTABL 


JR2510 

BSEX 

JAED 

(P) 


JR2511 


TMD 

*5X 


JR2512 


JMP 

S 


JR2513 


JMP 

NSW+2H 


JR2514 


JMP 

NBW'f2H 


JR2515 


JMP : 

BSE+iH 


JR2516 

BSG 

TJM 

BSGX 


JR2517 


TMD 

»4X 


JR2518 


JMP 

B 


JR2519 


TMD 

PTABL 




JR2520 


Jaed 

BSGX 


JR2521 


TMD 

PTABL+1 


JR2522 


JAED 

BSGX 


JR2523 


TMD 

PTABL+2 


JR2524 

BSGX 

Jaed 

(P) 


JR2525 


tMd 

#5X 


JR2526 


JMP 

S 


JR2527 


Jmp 

NSW4-2H 


JR2528 


Jmp 

NBW+2H 


JR2529 


JMP 

BSG+IH 


JR2530 

BLOCK 

TJM 

BLOX 


JR2531 


SIXO 

3^5X 


JR2532 


TMA 

*5X 


JR2633 


SRA 

24 

NB39 

JR2534 


TMQ 

Y98 


JR2535 


EIS 

BLW 

SET REPEAT COUNTER 

JR 25 3 6 


AIXO 

3i5X 


JR2537 

rblw 

RPTAA 

0 


JR2538 


TMD 

i»4X 

A 

JR2539 


TDM 

1»5X 

B 

JR2540 

BLOX 

JMP 

(P) 

EXIT 

JR2541 

BI 

TJM 

BIX 


JR2542 


TMD 

>4X 


JR2543 


JMP 

B 


JR2544 


TMD 

PTABL+i4 


JR2545 


JAED 

BIX+IH 


JR2546 


TMD 

ptabL+Is 


JR2547 


JAED 

BIX+IH 


JR2548 

BIX 

Jmp 

(P) 


JR2549 


JMP 

NBW+2H 


JR2550 


Jmp 

B l4lH 


Jr2551 

B$I 

tJm 

BSi X 


JR2552 


Jmp 

Bt 


JR2553 


TMD 

PTABL 


JR2554 


JAed 

BSIX 


JR2555 


Tmd 

PTABL+9 


JR2556 

BSIX 

JAED 

(P) 


JR2557 


JMP 

NBW4-2H 


JR2558 


TMD 

#5X 


JR2559 


Jmp 

S 


JR2560 


Jmp 

NSW*l‘2H 


JR2561 


Jmp 

BSI+IH 


JR2562 

FLEXO 

TMD 

Y8i 


JR2563 


TDXRC 

iH>7X 


JR2564 

FLEXl 

TMD 

|7X 


JR2565 

r 

RPTNN 

8 


JR2566 


TDC 



JR2567 


SCD 

42 


JR2568 


TMD 

YlOO 


JR2569 


AIXJ 

1#7X 


JR2570 


JMP 

M/620 


jR257i 

FLEX2 

A/IDUMP 

AND FINISH HAVE BEEN TAKENS 

JR2572 


A/ICONTINUE WITH 

NEXT PROGRAM 1$ 

JR2573 


page 



JR2574 


AfeND 

39$ 


JR2575 


name 

SCT 


JR2576 


WRITE^READsSPACE 

5iBACKSPAGE>REWINDjAND READREVERSE 

JR2577 


J» SANFORD 


JR2578 

CWTSCT 

TJM 

WTX 

WRITE ON MAG TAPE 

JR2579 


CD 





- 

JR2580 

txdLc 

*5X 

STORE XREGS 

.... 

JR2581 

TXDRC 

1H,7X 



JR2582 

TdM 

XSAVE 



JR2583 

TAD 




JR2584 

TDXLC 

,7X 

LOCATION OF DATA 


JR2585 

TMQ 

PLl 

IS/l-l/O-^SA/l 


JR2586 

CA 




JR2587 

EIS 

Kl 



JR2588 

JMP 

SKP 

IS UNIT AVAILABLE 


JR2589 WT3 

JMP 

WTl 

ALTERNATE BUFFERS 


JR2590 WTl 

TMD 

PL2 

MCB>T15 


JR2591 

TDXLC 

j5X 



JR2592 R 

RPTAA 

128 

MOVE 128 WORDS UPSTAIRS 


JR2593 

TMD 

1>7X 



JR2594 

TDM 

1>5X 



JR2595 

TMA 

WT 

WRITE 1 BLOCK 


JR2596 

Tio 

MCB ■ 

FROM MCB 


JR2597 WT4 

JMP 

(Pl-IH 



JR2598 

JMP 

SKP 

PAUSE FOR TAPE ACTION 


JR2599 

TIJ 

WT2 

SET UP FOR NEXT BUFFER 


JR2600 

TJM 

WT3 



JR2601 WT5 

TMD 

XSAVE 

RESTORE XREGS 


JR2602 

TDXLC 

^5X 



JR2603 

TDXRC 

1H»7X 



JR2604 WTX 

JMP 

(P) 

EXIT 


JR2603 WT2 

TMD 

PL3 

MCB+128^T15 


JR2606 

TdxLc 

i5X 



JR2607 R 

RPTAA 

128 

MOVE UPSTAIRS 

LJ 

JR2608 

TMD 

i^7X 



JR2609 

TDM 

U5X 



JR2610 

TMA 

WT 

WRITE 1 BLOCK 


JR2611 

TIO 

MCB+128 

from 20ND BUFFER 


JR2612 

JMP 

(Pl-IH 



JR2613 

JMP 

SKP 

PAUSE FOR tape ACTION 


JR2614 

TIJ 

WTl 

SET UP FOR 1ST BUFFER 


JR2615 

TJM 

WT3 



JR2616 

JMP 

WT5 

EXIT 


JR2617 CRDSCT 

TJM 

RDX 

READ FROM MAG TAPE 


JR2618 

CD 




JR2619 

TXDLC 

>5X 

SAVE XREGS 


JR2620 

TXDRC 

1H)7X 



JR2621 

TDM 

XSAVE 



JR2622 

TAD 




JR2623 

TDXLC 

>7X 

LOCATION TO READ INTO 


JR2624 

TMQ 

PLl 

13/-1/0-34/1 


JR2625 

TMA 

PL6 

D/1B13 


JR2626 

EIS 

Kl 



JR2627 

JMP 

SKP 

UNIT AVAILABLE 


JR2628 RD3 

JMP 

RDl 

ALTERNATE BUFFERS 


JR2629 CRDl 

TMA 

(P) 

READ FORWARD^ BACKWARD 


JR2630 

TIO 

MCB 

INTO MCB 


JR2631 

JMP 

<P)-1H 



JR2632 

JMP 

SKP 

PAUSE FOR TAPE ACTION 

o 

JR2633 

TMD 

PL2 

MCB)T15 


JR2634 

tdxLc 

f5X 



JR2635 R 

RPTAA 

128 

MOVE 128 WORDS DOWNSTAIRS 


JR2636 

TMD 

1>5X 



JR2637 

TDM 

1 v7X 



JR2638 

TIJ 

RD2 

SET UP FOR ALTERNATE BUFFER 


JR2639 

TJM 

RD3 




JR 2646 

rd4 

TMD, 

XSAVE 

JR2641 


tdxLc 

J5X 

JR2642 


TDXRC 

1H#7X 

JR2643 

RDX 

JMP 

(P) 

JR2644 

CRD2 

TMA 

(P) 

JR2645 


TIO 

MCB+128 

JR2646 


JMP 

(P)-IH 

JR2647 


JMP 

SKP 

JR 26 48 


TMD 

PL3 

JR2649 


TDXLC 

#5X 

JR2650 

R 

RPTAA 

128 

JR2651 


TMD 

1>5X 

JR2652 


TDM 

1#7X 

JR2653 


TIJ 

RDl 

JR2654 


tJm 

Rb3 

JR2655 


Jmp 

Rb4 

JR2656 


SPACE 

3 

JR2657 

CRWSCT 

TJM 

RWX 

JR2658 


TMA 

RW 

JR2659 


tto • 


JR2660 


JMP 

(P)-lH 

jR266l 

RWX 

JMP • 

<P) 

JR2662 


SPACE 

3 

JR2663 

CSPSCT 

TJM 

SPX 

JR2664 


TMQ 

PLl 

JR2665 


TMA 

PL 6 

JR2666 


EIS 

K1 

JR2667 

SPl 

TmA 

SP 

JR 2668 


Tto 


JR2669 


JMP 

(P)-IH 

JR2670 


Jmp 

SKP 

JR2671 

SPX 

JMP 

(P) 

JR2672 


SPACE 

3 

JR2673 

CBSSCT 

tJm 

BSX 

JR2674 


TMQ 

PLl 

JR2675 


TMA 

PL 6 

JR2676 


EIS 

K 1 

JR2677 

BSi 

TMA 

BSP 

JR2678 


TIO 

- ■ 

JR2679 


Jmp 

(Pj-IH 

Jr2680 


JMP 

SKP 

JR2681 

BSX 

Jmp 

(Pi 

JR2682 

XSAVE 

D/O 


JR2683 

« 

LOAD A 

REG WITH 

JR2684 

BIN 

TJM 

INX 

JR2685 


CM 

L 

JR2686 


TMQ 

PL 8 

JR2687 


EIS 

L 

JR 2688 


TMQ 

PL9 

JR2689 


JAGQ 

INX+lH 

JR2696 


TMQ 

PL 8 

JR2691 


Eis 

RD 

JR2692 


EIS 

RDR 

JR2693 


EIS 

WT 

JR2694 


EIS 

SP 

JR2695 


EIS 

BSP 

JR2696 


EIS 

RW 

JR2697 


EIS 

EG 

JR2698 


TMA 

L 

JR2699 


3lA 

19 


restore Xregs 


EXIT 

READ forward# BACKWARD 
20ND BUFFER 

PAUSE FOR TAPE ACTION 
MCB+128#T15 

MOVE 128 WORD DOWNSTAIRS 


SET UP FOR 1ST BUFFER 
EXIT 


13/1-1/0-34/1 

D/1B13 

SPACE i BLK FRWD 


13/1-1/0-34/1 

D/1B13 

BACKSPACE 1 BLK 


NO* AND JMP TO IN 


20/1-4/0-24/1 

b/lOB23 

TAPE NOt ASSIGNED 
20/1-4/6-24/1 
READ i BLK forward 
READ 1 BLK IN REVERSE 
WRITE 1 BLK forward 
SPACE 1 BLK forward 
BACKSPACE 1 BLK 
REWIND 

ERASE 1 BLOCK 




JR2700 
jR270i 
JR2702 
JR2703 
JR2704 
JR2705 
JR2706 
JR2707 
JR2708 
JR2709 
JR2710 
JR2711 
JR2712 
JR2713 
JR2714 
JR2715 
JR2716 
JR27I7 
JR2718 
JR 2719 
JR2720 
JR2721 
JR2722 
JR2723 
JR2724 
JR2725 
JR2726 
JR2727 
JR2728 
JR2729 
JR2730 
JR2731 
JR2732 
JR2733 
JR2734 
JR2735 
JR2736 
JR2737 
JR2738 
JR2739 
JR2740 
JR2741 
JR2742 
JR2743 
JR2744 
JR2745 
JR2746 
JR2747 
JR2748 
JR2749 
JR2750 
JR2751 
JR2752 
JR2753 
JR2754 
JR2755 
JR2756 
JR2757 
JR2758 
JR2759 



TMO 

PLlO 


EIS 

kl 


£IS 

K2 


EIS 

K3 


EIS 

K4 

INX 

JMP 

(P) 1 


TMD 

PLll 1 


TDXLC 

* IX 

INY 

TMD 

^IX 

R 

RPTNN 

TDC 

8 


SGD 

42 


TMD 

PL12 


AIXJ 

1>1X 


HLT 

0 


JMP 

(P)-IH 

Cl 

A/IUSE NO* NOT ASSIGNED 

RSKP 

TJM 

KX 

K1 

SKC 



JMP 

K3 

t<2 

SKF 

i>o 


JMP 

FAULT 

K3 

SKC 

0*0 


JMP 

kl 

K4 

SKF 

1*0 


JMP 

Kl 

kx 

JMP 

(P) 

FAULT 

TMA 

K2 


TMQ 

24/1T47 


EIS 

K6 

K5 

INCA 

K6 

LK6 

SKF 

1*0 


JMP 

TDA 

K5 


TMD 

P/K10*T15 


TDM 

Kll 


CM 

ES 


TMQ 

6/1-10/0-32/1 


EIS 

ES 


SLA 

5 

K7 

JAZ 

K9 


SLA 

1 


JAN 

K8 


INCAL 

Kll 


JMP 

K7 

K8 

TMD 

Kll 


TDXLC 

*7X 


TMD 

*7X 


JMP 

FLEX 

K9 

TMD 

P/B10*TI5-P/3*T 


JMP 

FLEX 

LKIG 

P/BlfTl5 

-P/3>T39 


P/B2*Tl5 

-P/4*T39 


P/B3&T15 

-P/4*T39 


P/B4#T15 

-P/2*T39 


P/B5»T15 

-P/3*T39 


P/B6>T15 

-P/1*T39 


P/B7*T15 

-P/1*T39 


P/B8,T15 

-P/3*T39 


P/B9iTI5 

-P/2#T39 


1/1-4/0-43/1 


EXIT 

P/C1>T15 


Cl+3>INY 


1 $ 



JR2Y60 

kll 

b>6 



JR2761 

ES 

D/O 



JR2762 

B1 

a/itransport disabled i$ 

JR2763 

B2 

A/IMISSING BEGINNING BLOCK MARK 1$ 

JR2764 

B3 

AXIMISSING ENDING 

BLOCK mark is 

JR2765 

B4 

A/ISPROCKET 

1$ 

JR2766 

B5 

A/rIMPROPER BLOCK 

MARK IS 

JR2767 

B6 

A/IPARITYIS 


JR2768 

B7 

A/ICRAZY 

1$ 


JR2769 

B8 

AXIBEGINNING OF TAPE 1$ 

JR2770 

B9 

A/IEND OF TAPE 

IS 

jR277i 

BIO 

A/tPREMATURE ERROR EXIT 1$ 

JR2772 

FLEX 

tdxLc 

»7X 


JR2773 


TDXRC 

1H>6X 


JR2774 

FLX 

tMd 

i7X 


JR2775 

R 

RPTNN 

8 


JR2776 


TDC 



JR2777 


SGD 

42 


JR2778 


CD 



JR2779 


siXoL 

if6X 


JR2780 


JNO 

Fix 


jR2t8l 


NOP 



JR2782 


JMP 

M/620 


Jr2783 

BRD 

0/661T47 


READ 1 BLK FRWD MODE 

JR2784 

BRDR 

0/761T47 


READ 1 BLK reverse 

JR2785 

wr 

0/433T47 


WRITE 1 BLK FRWD 

JR2786 

RW 

0/212T47 


REWIND 

JR2787 

SP 

0/40000000261T47 

SPACE 1 BLK FRWD 

JR2788 

BSP 

0/40000000361T47 

BACKSPACE 1 BLK 

JR2789 

EC 

0/316T47 


ERASE 1 BLK 

JR2790 

PLl 

13/1--1/0 

-34/1 


JR2791 

PL2 

P/MCB»T15 


JR2792 

PL3 

P/MCB+l28>Tl5 


JR2793 

PL4 

A/IWE T$ 



JR2794 

PL5 

16/1 



'JR2795 

PL6 

D/1B13 



JR2796 

PL7 

A/IRE T$ 



JR2797 

PL8 

20/1-4/0 

-24/1 


JR2798 

' PL9 

b/10B23 



JR2799 

RLlO 

1 /1-4/0- 

43/1 


JR2800 

PLll 

P/C1#T15 



JR2801 

PL 12 

C/HLT>Cl+3-C/JMP> 

INY 

JR2802 

PL13 

15/1 



JR2803 

PL14 

A/ISE T$ 



JR2804 

L 

SET 

(P)+l 


JR2805 

mcb 

SET 

(P)+256 


JR2806 


PAGE 



JR2807 


NAME 

PANTS 


JR2808 

BPANT 

TJM 

RESXS 


JR2809 


TAD 

$ 


JR2810 


TDXC 

1H>3XS 

starting ADDRESS 

JR2811 


TDXC 

♦ 1X$ 

NUMBER OF WORDS 

jR28i2 


TCXS 

*3X$ 


JR2813 

PAND 

tma 

#3X$ 

GET DATA WORD 

Jr28i4 


JMP 

stuf$ 


JR2815 


CD 

$ 


jR28i6 


sixo 

1^1X$ 

TEST for done 

JR2817 


JNO 

PAND$ 

NOT done 

JR2818 


JMP 

EOL$ 

WRITE END OF LINE ' 

jR28i9 

RESX 

Jmp 

(Pl$ 

EXIT 



JR2826 

^^subroutine to 

WRITE END 

OF LINE 

JR2821 

LEOL 

TJM 

EOX$ 


JR2822 

EOA 

TMA 

E01$ 

END OF LINE CONSTANT 

JR2823 

EOB 

JMP 

STUFS 

SWITCH TO WRITE BUFFER 

JR2824 

EOX 

JMP 

(P)$ 


JR2825 

EOl 

0/3232323232770200$ 

JR2826 

-j^subroutine to 

WRITE ONE 

WORD 

JR2827 

LSTUF 

TJM 

STUXS 

- 

JR2828 

STUA 

TAM 

BUFF+1$ 

STORE WORD IN BUFFER 

JR282R 


tmA 

$TU1$ 


JR2830 


INCA 

stuAs 


JR2831 


Jagd 

STUXS 


JR2832 


TIJ 

OUTS 

SET SWITCH TO WRITE BUFF 

JR2833 


TJM 

EOB$ 

WHEN LINE IS DONE 

JR2834 

STUX 

JMP 

(P) S 


JR2835 

LSTUi 

TJM 

STUXS 


JR2836 


TAM 

BUFF+M/156$ 

JR2837 

■J^SUBROUTINE TO 

WRITE BUFFER AND RESET SWITCHES AND 

JR2838 

LOUT 

TJM 

OUXS 


JR2839 

OUA 

TMD 

WRITIS 


JR2840 


TiO 

BUFFS 

WRITE BUFFER 

JR2841 


JMP 

NOGOS 

TT OR AU NOT AVAILABLE 

JR2842 

LSK 

SKC 

OS 


JR2843 


JMP 

SKFS 


JR2844 


JMP 

OUBS 

SUCCESS 

JR2845 

RSKF 

SKF 

1>0S 


JR2846 

LSKEC 

SKC 

M/3777»0$ 


JR2847 


JMP 

SKS 


JR2848 

LSKFA 

SKF 

M/177»0S 

FAULT 

JR2849 


JMP 

HELPS 

RECOVERY IMPOSSIBLE- Si 

JR2850 


TMA 

FAULIS 


JR2851 


JMP 

FLEX $ 

TYPE )FAULT T) 

JR2852 


TMQ 

UNITIS 


JR2853 


JMP 

DPS 

TYPE UNIT NUMBER 

JR2854 


TMA 

ERAS2$ 


JR2855 


JMP 

FLEXS 

TYPE TERASE) 

JR2856 


TMD 

ERASIS 


JR2857 


TIO 

S 

ERASE BAD BLOCK 

JR2858 


JMP 

tP)*-lHS 


JR2859’ 


TMD 

RELIS 


JR2860 


TIO 

^ , 

RELEASE UNIT 

JR2861 


JMP 

(P)*-1H$ 


JR2862 


JMP 

OUAS 

TRY AGAIN 

JR2863 

NOGO 

TMA 

REL3$ 


JR2864 


JMP 

FLEXS 

TYPE ^RELE) 

JR2865 


TIXZ 

16j2XS 

SET UP LOOP 

JR2866 


TMA 

REL2S 


JR2867 


TMQ 

1B23S 


JR2868 

NOGA 

AQS 

TIS 


JR2869 


TIO 

S 

RELEASE ALL UNITS 

JR2870 


NOP 

S 


JR2871 


SIXO 

1>2XS 


JR2872 


JNO 

NOGAS 

END LOOP 

JR2873 


JMP 

OUAS 

TRY AGAIN 

JR2874 

FLEX 

TJM 

FLXS 

SUBROUTINE TO TYPE ONE W 

JR2875 


TAD 

$ 


JR2876 

R 

RPTNN 

8$ 


JR2877 

LOUC 

TDC 

BUFF-MS 


JR2878 


SCD 

42$ 


JR2879 

FLX 

JMP 

(P) S 




JR288C) 

DP 

TJM 

DPX$ 

CONVERT AND TYPE DECIMAL 

Jr2881 


CA 

$ 


JR2882 


DAQ 

TENi$ 


JR2883 


rob 

$ 


JR2884 


Sraq 

6$ 


JR2885 


TDA 

$ 


JR2886 


JAZ 

DPA$ 

IGNORE LEADING ZERO 

JR2887 


TDC 

$ 


JR2888 

DPA 

TQD 

$ 


JR2889 


TDC 

$ 


JR2890 

DPX 

JMP 

(P)$ 


JR2891 

HELP 

TMA 

HELPIS 


JR2892 


JMP 

FLEX$ 

TYPE )HELP) 

JR2893 


HLT 

M/7777$ 

HALT FOR MANUAL ACTION 

JR2894 


JMP 

0UA$ 

try again 

JR2895 

WRITl 

C/HLT^O- 

-C/TQAf1$ 

WRITE ORDER- SET 

JR2896 

ERASl 

C/HLT^O- 

-C/FCAQA$ 

ERASE ORDER- SET 

JR2897 

RELl 

C/HLT>0' 

-C/FAQA$ 

RELEASE ORDER- SET 

JR2898 

UNITl 

$ 


UNIT NUMBER- SET 

JR2899 

RLL2 

C/HLT>0- 

-C/FAQA$ 

RELEASE ORDER 

JR2900 

Ti 

$ 


TEMPORARY STORAGE 

JR2901 

TfeNl 

D/10$ 



JR2962 

1B23 

D/1B23$ 



JR2903 

FAULI 

0/3226216443636063$ 

JR2904 

ERAS2 

0/6025512162256032$ 

JR2905 

RBL3 

0/3235512543253532$ 

JR2906 

HELPl 

0/3235302543473532$ 

JR2907 

LOUB 

TlJ 

STUF$ 

RESET SWITCHES* SET UP B 

jR290a 


tJm 

E0B$ 

RESET 

JR2909 


TIJ 

BUFF+1$ 


Jr2916' 


TJM 

stuAs 

RESET 

Jr2911 


TMD 

DS1$ 


JR2912 

R 

TDM 

BUFF$ 

DATA SELECT 

JR2913 


TMA 

0U2$ 

END OF LINE 

JR2914 


TMD 

oUc$ 


JR2915 


TDXC 

♦ 2X$ 


jR29i6 


TMD 

OlJ3$ 


JR2917 

L 

RPTNN 

M/176$ 


JR2918 


TDM 

>2X$ 

STORE IGNORE 

JR2919 


TAM 

BUFF+M/177$ STORE END OF LINE 

JR2920 

OUX 

JMP 

(P) $ 


JR2921 

0U2 

0/3232323232323277$ 

JR2922 

0U3 

0/3232323232323232$ 

JR2923 

PAl 

0/3232323232770700$ 

JR2924 

CPtNT 

TJM 

RESX$ 


JR2925 


TAD 

$ 


JR2926 


TDXC 

iH>2X$ 

USE TAPE NUMBER 

JR2927 


Adx 

>2X$ 


JR2928 


TMA 

92X$ 

PL UNIT 

Jr2929 


slA 

i9$ 


JR2930 


TMQ 

Ml$ 


JR2931 


Els 

SK$ 

SET UP SKIPS 

JR2932 


Els 

SKEC$ 


JR2933 


EIS 

SKFA$ 


JR2934 


SRA 

19$ 


JR2935 


SRQN 

19$ 


JR2936 


EIS 

WRITIS 

SET UP 10 ORDERS 

JR2937 


EIS 

ERAS1$ 


JR2938 


EIS 

RELIS 


JR2939 


SRA 

5$ 




JR2940 
JR2941 
JR2942 
JR2943 
JR2944 
JR2945 
JR2946 
JR2947 
JR2948 
JR2949 
JR2950 
JR2951 
JR2952 
JR2953 
JR2954 
JR2955 
JR2956 
JR2957 
JR2958 
JR2959 
JR2960 
JR2961 
JR2962 
JR2963 
JR2964 
JR2965 
JR2966 
JR2967 
JR2968 
JR2969 
JR2970 
JR2971 
JR29T2 
JR2973 
JR2974 
JR2973 
JR2976 
JR2977 
JR2978 
JR2979 
JR2980 
JR2981 
JR2982 
JR2983 
JR2984 
JR2985 
JR2986 
JR2987 
JR2988 
JR2989 
JR2990 
JR2991 
JR2992 
JR2993 
JR2994 
JR2993 
JR2996 
JR2997 
JR2998 
JR2999 


SRQN 

5$ 


EIS 

SKF$ 

SET UP SKF 

SRA 

19$ 


SRQN 

19$ 


£13 

UNITIS 

SET UP UNIT 

TiJ 

RESXS 


TJM 

OUX$ 


JMP 

OUB$ 

RESET AND EXIT 


^SUBROUTINE TO CHANGE DATA SELECT CHARACTER 


LCDS 

TDM 

MD$ 



TJM 

RESXS 



TMQ 

M2$ 



ETA 

MD$ 

extract new data select 


ETD 

DS1$ 

EXTRACT OLD DATA SELECT 


JAED 

RESXS 

EXIT IF NO CHANGE 


E3 

DS1$ 



AMS 

DS1$ 

NEW DATA SELECT 


TDQ 

$ 



TMA 

BUFF+lS 



TMD 

0U3$ 



JAED 

CDAS 

BUFFER EMPTY 


JMP 

OUTS 

BUFFER NOT EMPTY* FINISH 

CDA 

TQM 

BUFFS 

NEW DATA SELECT TO BUFFE 


JMP 

RESXS 



DSl 0/0200323232323232$ 
bS2 0/0252323232323232$ 
Ml 0/4177777777777777$ 
M2 0/l7Tll$ 


BUFF 

SET 

(PKM/200$ 

MD 

$ 


CSPCE 

TJM 

RESXS 


JMP 

EOLS 


JMP 

RESXS 

CPAGE 

TJM 

RESXS 


TMA 

PAIS 


JMP 

STUFS 


JMP 

SPCE+IHS 

CFINISH 

TJM 

RESXS 


TMD 

DS2$ 


TDM 

BUFFS 


JMP 

OUTS 


JMP 

PAGE 

RESXS 


NAME 

JRS 


128 WORD OUTPUT BUFFER 


Yi P/LW-M0 jT15-P/LV+22>T39$ 

Y2 P/LV+2>T15«P/LV-f23>T39 

Y3 P/MULTC>T15-P/0PENM»T39$ 

Y4 P/MULTC>T15“P/MULTB»T39$ 

Y5 P/MULTC>T15-P/MULTAft39$ 

Y6 P/LV+24»T15“P/LW+8#T39 

Y7 P/MN>T15~P/0PENM^T39 

Y8 P/0PENM-1?T15-P/42*T39 

Y9 P/LV+24»T15“P/LV+9>T39 

YIO P/LW+ll>T15-P/LV+9»T39 

Yll P/LV+22>T15“-P/LV+12iiT39$ 

Y12 P/S0RT0»T15“P/S0RTC#T39$ 

Yi3 P/LV423>ti5-P/LV+12»T39$ 

Yi4 P/LC+13>T15“P/LV+13>T39$ 

Y15 P/LV+l2»tl5“P/LV+i94t39$ 

Yl6 P/LV+19jT15“P/LV'i-15»T39$ 



JR3000 
JR3001 
JR3002 
JR3003 
JR3004 
JR3005 
JR3006 
JR3007 
JR3008 
JR3009 
JR3010 
jR301i 
JR30.12 
JR36 i3 
JR3014 
JR3015 
JR3016 
JR3017 
JR3018 
JR3019 
JR3020 
JR3021 
JR3022 
JR3023 
JR3024 

JR3625 
JR3026 
JR3027 
JR3028 
J1^3029 
JR3030 
JR3031 
JR3032 
JR3033 
JR3034 
JR3035 
JR3036 
JR3037 
JR3 038 
JR3039 
JR3040 
JR304i 
JR3042 
JR3043 
JR3044 
JR3045 
JR3046 
JR3047 
JR3048 
JR3G49 
JR3050 
JR3051 
JR3052 
JR3 05 3 
JR3054 
JR3 05 5 
JR3056 
JR3057 
JR3058 
JR3059 


Y17 PyLV+14>Tl5-P/LV+20»T39$ 

Y18 P/LV+20>T15-P/LV+13^T39$ 

Y19 P/LV*1*14>T15“P/'LV+13#T39$ 

Y20 P/LV4l9>Tl5-PyLV4-l3fT39$ 

Y2l P/LV+12>T15-P/LV4-13»T39$ 

Y22 P/S0RTA)T15“P/S0RTS»T39$ 

Y23 P/LV*M2 5T15-P/LV+17»T39$ 

Y24 P/LV-I*14>T15-P/LV+18*T39$ 

Y25 C/TMA9RTW+1^C/AM»EE2 

Y26 P/LV4^l8>tl5“P/LV+13>T39$ 

Y27 P/LV4i6>T15«P/LV+l3>T39$ 

Y28 P/SORrA5T15-P/SORTO»T39$ 

Y29 P/LV+12#T15«-P/LV+15»T39$ 

Y30 P/LV+24>T15“P/LV+16#T39$ 

Y3i P/LV+24jT15~P/LV+14iT39$ 

Y32 P/N15T15~P/N29T39 

Y33 P/LV+28^ri5-P/LW+l>T39 

Y 34 P/L\/435>T15'-P/LV+1>T39 

Y35 PyLV42>T15-P/LV4-3>T39 

Y36 P/LV+3>T15-“P/LV+3l>T39 

Y37 P/LV4i30»Ti5-P/LV+3l>T39$ 

Y38 P/$UBSTB»T15-P/OPENM>T39$ 

Y39 P/LV+35>T15-P/LV+30T39 

Y4d P/ElfT15-P/EEl>T39 

Y41 P/MP>T15-P/0PENM»T39 

Y42 P/LV+2*T15-P/LV4‘40T39 

Y43 P/LV+4#T15«P/LV47>T39 

Y44 P/CNSTftl5 

Y45 P/LV+2^T15-P/LV+6»T39 

Y46 P/E2>Ti5-P/EE2>T39 

Y 47 C/CSM9RTW+1«C/AM>EE2 

Y48 P/LV+18*T15-P/LV+7>t39 

Y49 P/LV+2 tJ 15-P/LV+7 9 T39 

Y5 0 P / LW+3 # T15 “P / L • T3 9 

Y51 P/OPENMsT15-P/MY>T39 

Y52 P/LV*fl,T15-P/LV+8ft39 

Y53 P/LV+8fT15«P/LV4*10*T39 

Y54 P/MN»Ti5«P/OPEMM^T39 

Y55 P/LV4*1«T15«P/LV4*9$T39 

Y56 P/Ti»Tl5 

Y57 D/0 

Y58 D/0 

Y 59 P/LV+37JT15-P/LV+35♦T39$ 

Y60 0/0061013333333333 

Y6i P/LV‘H37 jT15-P/LV+39>T39$ 

Y62 P/LV4-359T15-P/LV+7iT39 

Y63 P/LV+32»T15^P/LV+18vT39$ 

Y64 P/PROGB 9 TI 5 

Y65 A/LAST $ 

Y66 8/110000 

Y67 24/0-24/1 

Y68 C/HLT>PR0GB'fl20-C/JMP>LT6$ 

Y69 A/ B $ 

Y70 P/ET4>T15 

Y7l C/HLT>LT4+3-C/JMP*LT3 

Y72 P/LV+27»T15*P/LWW»T39 

Y73 P/BFll>tl5 

Y74 C/HLT) BF114- 3-G/JMP > BF10$ 

Y75 C/HLT»PTABL“C/TJMLiBUFF+16$ 

Y76 P/LWXjTi5“P/LV+34*T39 



JR306O 

Y77 

P/15>T15-P/BUFF4T39 


JR3061 

Y78 

P/DATA-‘2>T15 


JR3062 

Y79 

P/LV+i»T15-P/LV*l*36#T39 


JR3063 

Y80 

P/LWW^Ti5-P/LV+27#T39 


JR3064 

Y8i 

P/W02^T15-P/FLEX2#T39 


JR3065 

Y82 

C/HLTn'i02+2-C/JMP*W01 


JR3066 

Y83 

C/HLT»PTABL-C/TJML>BUFF+16$ 

JR3067 

Y84 

C/HLT>4095-G/JMP*SW 


JR3068 

Y85 

0/32 


JR3069 

Y86 

P/OV2»T15 


JR3070 

Y87 

G/HLT J0V2+2-G/JMP♦OVl 


JR3071 

Y88 

A/AT $ 


JR3072 

Y89 

G/HLT>48-G/JMP>MBA 


JR3073 

Y90 

G/HLT >PROGB+l28-G/JMP>i 

NBB$ 

JR3074 

Y91 

G/HLT>DATA+126-C/JMP#NBAS 

JR3075 

Y92 

G/HLTj48~C/JMPfNSB 


JR3076 

Y93 

G/HLT>BUFF+15-G/JMP*NSAS 

JR3077 

Y94 

G/HLTjDATA+126-C/JMP>N$B$ 

JR3078 

Y95 

G/HLTi0-C/JMP•DKX+IH 


JR3079 

Y96 

P/1»T15-P/42»T39 


JR3080 

Y97 

G/HLTj48-G/JMP>SLV/X*MH 


JR3081 

Y98 

28/1-12/0-8/1 


JR3082 

Y99 

P/3jT15-P/USE>T39 


JR3083 

YlOO 

C/HLT^FLEX2+8-G/JMP»FLEX1S 

JR3084 

Y112 

P/LV+2»T15-P/LV410>T39 


JR3085 

Yll3 

A/1/1 a $• •0$ 


JR3086 

PTABL 

0/33T47 

END GODE 

JR3087 


0/20T47 

PLUS 

JR3088 


0/40T47 

MINUS 

JR3089 


0/54T47 

TIMES 

JR3090 


0/53T47 

EXPON 

JR3091 


0/74X47 

OPEN 

JR3092 


0/34X47 

GLOSE 

JR3093 


0/73T47 

GOMMA 

JR3094 


0/61T47 

SLASH 

JR3095 


0/13X47 

EQUAL 

JR3096 


0/24T47 

D 

JR3097 


0/46X47 

0 

JR3098 


0/62T47 

S 

JR3099 


0/32X47 

IGNORE 

JR3i00 


0/60T47 

SPAGE 

JR3101 


0/25T47 

E 

JR3102 


0/31X47 

I 

JR3103 


0/43T47 

L 

JR3104 


0/63T47 

T 

JR3i05 


0/21T47 

A 

JR3106 


0/22X47 

B 

JR3107 


0/23T47 

C 

JR3108 


0/55T47 

QUOTE 

JR 3109 


0/26X47 

F 

JR3110 


0/47T47 

P 

JR3111 

TAB 

0/33X5 

END GODE 

JR 3112 


0/60206033T23 

PLUS 

JR3113 


0/60406033T23 

MINUS 

JR3114 


0/5433T11 

TIMES 

JR3115 


0/5333X11 

EXP 

JR 3116 


0/7433T11 

OPEN 

JR3117 


0/3433X11 

(TLOSE 

JR3118 


0/7333X11 

GOMMA 

jR3il9 


0/6133T11 

SLASH 



JR3120 


0/1333Tli EQUAL 

JR3121 

GNST 

0/0161013333333333 

JR3122 


48/0 

JR3123 


0/1T47 

JR3124 


0/11T47 

JR3125 


0/12747 

JR3126 


8/110000 

JR3127 

OFF 

SET (P)+l 

JR3128 

EFFl 

SET CP)*M 

jR3i29 

EFF2 

SET (P)+l 

JR3130 

MFFl 

SET (P>+1 

JR3131 

CTL 

SET (P)41 

JR3132 

CTLP 

SET (P)+l 

JR3133 

CTE 

SET (P)+l 

JR3134 

XWRD 

c/hltl>sorta-i-c/hltr*$ortb-»-ih$ 

JR3135 


C/HLT>S0RTA+19-C/JMPfGATH7$ 

JR3136 


P/TRU+i»T15-P/6»T39 

JR3137 

LC 

D/0 

JR3138 


P/F0T>Tl5 

JR3139 


P/0PENM>T15 

jR3i46 


P/Fi,Tl5 

jR3i4i 


P/f2fT15 

JR3142 


P/Ei»Ti5 

Jr3143 


P/E2»Ti5 

Jr3144 


P/GiTl5 

jR3l45 


P/MV>Ti5 

jR3l46 


P/MN*Ti5 

JR3147 


P/MP»T15 

JR3148 


D/0 

JR3149 


P/S0RT0>T15 

JR3150 


P/S0RTA»Ti5 

JR3151 


P/S0RTB>T15 

JR3152 


P/NliT15. 

JR3153 


P/N2>T15 

jR3i54 


P/EE1>T15 

JR3155 


P/EE3iTl5 

JR3156 


P/T2»T15 

JR3157 


P/X3>T15 

JR3158 


P/S0R.TG>I15 

JR3159 


P/MULTA>T15 

JR3160 


P/MULTBm5 

JR3161 


P/MULTC>Ti5 

JR3162 


P/S3»T15 

JR3163 


D/0 

JR3164 


P/DATA»T15 

Jr3165 


P/S4»T15 

JR3166 


D/0 

JR3167 


P/SUBSTAf-Tl5 

JR3168 


P/SUBSTB»T15 

JR3169 


P/TRU^TIS 

JR3170 


D/0 

JR3171 


P/BUFF>T15 

JR3172 


P/PROG fT 1-5 

JR3173 


P/DATA-2.->..T15 

JR3174 


P/PR0GB>T15 

JR3175 


P/PROGB # T15-P/24*T39 

JR3176 


P/OPEMM-2>T15 

JR3177 

LV 

SET (P)*}*45 

JR3178 

LW 

SET (P1415 

JR3179 

LWW 

D/0 



JR3180 
JR3181 
jR3182 
JR3183 
jR3l84 
JR3185 
JR3186 
JR3187 
JR3188 
JR3189 
JR3190 
JR3191 
JR3192 
JR3193 
JR3194 
JR3195 
JR3196 
JR3197 
JR3198 
JR3199 
JR3200 
JR3201 
JR3202 
JR3203 
JR3204 
JR3205 
JR3206 
JR3207 
JR3208 
JR3209 
JR3210 
JR3211 
JR3212 
JR3213 
JR3214 
JR3215 
JR3216 
JR3217 
JR3218 
JR3219 
JR3220 

JR3221 

JR3222 

JR3223 

JR3224 

JR3225 

JR3226 

JR3227 

JR3228 

JR3229 

JR3230 

JR3231 

JR3232 

JR3233 

JR3234 

JR3235 

JR3236 

JR3237 

JR3238 

JR3239 


Lwx 

D/0 


T1 

SET 

{P)+l 

NUMER 

SET 

(P)+2 

DENOM 

SET 

(Pj+2 

REMAN 

SET . 

(P)+2 


P/i»T15- 

P/4095»T39 


SET 

(P)+2 

EEl 

SET 

(P)+l - 


P/IjTIS- 

P/40959T39 


SET 

(P)+2 

EE2 

SET 

(P)+l 


P/1»T15- 

P/40959T39 


SET 

(9)4-2 

Ei 

SET 

(9)4*1 


P/1jT15- 

P/4095*T39 


SET 

(P)4-2 

E2 

SET- 

(P)4*l 


P/lrTlS- 

P/40959T39 


SET 

(P)+2 

Si 

SET 

iP)+l 


P/l^TlS- 

P/40959T39 


SET 

(P)4*2 

S2 

SET 

(9)4*1 


P/1j^T15- 

P/4095fT39 


SET 

(P)4*2 

S3 

SET 

(P)4-l 


P/2>T15- 

P/4095fT39 


SET 

(P)4*2 

EOT 

SET 

(P)+2 - 


P/AiTlS- 

P/4095♦T39 


SET 

(P)4*2 

El 

SET 

(P)+4 


P/4>T15- 

P/4095»T39 


SET 

(9)4*2 

E2 

SET 

(P)+4 


P/4>T15- 

P/4095>139 


SET 

{P)+2 

N1 

SET 

(P)4-4 


P/4>T15- 

P/4095>T39 


SET 

(P)4*2 

N2 

SET 

(P) 4*4 


P/20>T15 

“P/4095#T39 


SET 

(9)4-2 

G 

SET 

tP)+20 .- 


P/20fTi5 

“P/4095>T39 


SET 

(P>+2 

SORTO 

SET 

(P)4*20 


P/20>T15 

“P/4095fT39 


SET 

(P)+2 

SORTA 

SET 

(9)4-20 


P/20»T15 

“P/4095>T39 


SET 

(P)4*2 

SORTB 

SET 

(P)4*20 


P/1900^T 

15“P/4095#T39 


SET 

(9) 4*2 

OPENM 

SET 

(9)4-1900 


P/l900iT 

15“P/4095»T39 


SET 

(P)4*2 

MY 

SET 

(9)4-1900 


P/1900^7 

15“P/4095>T39 




JR3240 


S£T 

(Pi+2 

JR3241 

m 

set 

-(P)+1900 

JR3242 


P/.1900 

♦T15-P/4095#Y39 

JR3243 


SET 

(PJ+2 

JR3244 

MULTA 

SET 

■ {P)+i900 

JR3245 


P/1900>T15-P/4095#T39 

JR3246 


SET 

(P)+2 

JR3247 

MULTB 

SET 

• (P)+1900 - 

JR3248 


P/1900 

>T15-P/4095»T39 

JR3249 


SET- 

(Pi-1-2 

JR3250 

MULTG 

SET 

(P)-fl900 

JR3251 


P/i28>T15-P/4095 »T39 

JR3252 

PROGB 

SET 

tPi-l'i2S 

JR3253 


P/30>T15-P/4095#T39 

JR3254 


SET 

(P)+2 

JR3255 

PROG 

set - 

- (P)+30 

JR3256 


P/126*T15-P/4095*T39 

JR3257 


D/0 


JR3258 


D/0 


JR3259 

DATA 

SET 

(P)+126 

JR3260 


P/15>T15-P/4095>T39 

JR3261 


SET 

(P)+2 

JR3262 

BUFF 

SET 

(P)415 

JR3263 


P/4095>T39 

JR3264 


END 

algy 



